Chuyển dữ liệu vào cột, hàng.

[pcbankncom]

Chào mn,
Em có raw data ở trong 1 cột,
Em muốn chuyển data vào các cột, hàng như trong file đính kèm.
Mong mn giúp đỡ

 

[befaint]

Hàm mờ nờ là được.

 

[n0thing1988]

Quản lý thế này thì chống sao được bệnh. Kiểm soát bệnh nhân còn không liên tục kìa
Thông tin của 2 bệnh nhân 959 và 960 không có kìa.

 

[phulien1902]

Chào mn,
Em có raw data ở trong 1 cột,
Em muốn chuyển data vào các cột, hàng như trong file đính kèm.
Mong mn giúp đỡ

Bạn thử:

Sub test()
Dim i%
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 6
        Range("E" & Rows.Count).End(xlUp)(2).Resize(1, 6) = WorksheetFunction.Transpose(Range("A" & i).Resize(6, 1))
    Next
End Sub

 

[be_09]

Chào mn,
Em có raw data ở trong 1 cột,
Em muốn chuyển data vào các cột, hàng như trong file đính kèm.
Mong mn giúp đỡ

Tại sao không thiết kế 1 sheet nhập liệu theo chiều dọc và lưu vào sheet Theo dõi theo chiều ngang cho dễ mà nhập liệu kiểu kỳ cục vậy?
Nếu sử dụng code thì sửa bài 4 lại một tí.

Sub ChuyenDuLieu()
    Dim i As Long
    Range("E2").CurrentRegion.ClearContents
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 6
        Range("E" & Rows.Count).End(xlUp)(2).Resize(1, 6) = _
        WorksheetFunction.Transpose(Range("A" & i).Resize(6, 1))
    Next
End Sub

 

[pcbankncom]

Hàm mờ nờ là được.

Thank b.
Data này m lấy từ https://ncov.vncdc.gov.vn/pages/viet-nam-1.html
Lúc paste ra nó vào hết 1 cột

 

[Sil_90]

Hàm mờ nờ là được.

bác ơi giải thích giúp em đoạn công thức này với ROW($A1)-1)*6+COLUMN(B$1))

 

[VetMini]

Quản lý thế này thì chống sao được bệnh. Kiểm soát bệnh nhân còn không liên tục kìa
Thông tin của 2 bệnh nhân 959 và 960 không có kìa.

Quản lý đâu mà quản lý. Lấy dữ liệu về làm tài liệu thôi.

 

[Hoàng Tuấn 868]

bác ơi giải thích giúp em đoạn công thức này với ROW($A1)-1)*6+COLUMN(B$1))

Bạn tìm hiểu kỹ trong hàm mờ nờ của anh befaint là sẽ rõ bạn ạ, tự tìm hiểu mới nhớ lâu được.