Chuyển cột thành hàng (4 người xem)

[ringofcloud]

Như tiêu đề, vì mục đích công việc mình có rất nhiều file cần chuyển từ cột sang hàng Ví dụ sơ qua:
A1 B1
A2 B2
A3 B3
Thành
A1 B1 A2 B2 A3 B3
Mong mọi người giúp đở.
Thank mọi người

 

[giaiphap]

Như tiêu đề, vì mục đích công việc mình có rất nhiều file cần chuyển từ cột sang hàng Ví dụ sơ qua:
A1 B1
A2 B2
A3 B3
Thành
A1 B1 A2 B2 A3 B3
Mong mọi người giúp đở.
Thank mọi người

Ô A8 gõ công thức như sau:

=OFFSET($A$2;INT((COLUMN(A1)-1)/4);MOD(COLUMN(A1)-1;4))

Fill công thức sang phải.

 

[phulien1902]

Như tiêu đề, vì mục đích công việc mình có rất nhiều file cần chuyển từ cột sang hàng Ví dụ sơ qua:
A1 B1
A2 B2
A3 B3
Thành
A1 B1 A2 B2 A3 B3
Mong mọi người giúp đở.
Thank mọi người

1 cách:

Sub abc()
    Dim a, b, LR, LC, i
    Set a = Application.Selection
    Set a = Application.InputBox("Quet vung du lieu :", , , Type:=8)
    Set b = Application.InputBox("Chon Cell gan ket qua:", , Type:=8)
    LR = a.Rows.Count: LC = a.Columns.Count
    For i = 1 To LR
        a.Rows(i).Copy b
        Set b = b.Offset(, LC)
    Next
End Sub

 

[ringofcloud]

Ok em làm được rồi
Tks anh em