Cần giúp đỡ ghép 2 cột lại tuần tự (3 người xem)

[kim84]

Cần giúp đỡ ghép 2 cột lại tuần tự với nhau. mong ace giúp đỡ mình với

 

[ChanhTQ@]

Đây là 1 cách thô thiển:

Option Explicit
Sub Ghep2CotDuLieu()
 Dim Rng As Range, Cls As Range
 Dim J As Long
 
 Set Rng = [B1].CurrentRegion
 ReDim Arr(1 To 3 * Rng.Cells.Count, 1 To 1)
 For Each Cls In Rng(1).Resize(Rng.Rows.Count)
    J = J + 1
    Arr(2 * J - 1, 1) = Cls.Value
    Arr(2 * J, 1) = Cls.Offset(, 1).Value
 Next Cls
 If J Then
    Columns("K:K").ClearContents
    [k1].Resize(3 * Rng.Rows.Count).Value = Arr()
 End If
End Sub

 

[Ba Tê]

Đây là 1 cách thô thiển:

Option Explicit
Sub Ghep2CotDuLieu()
 Dim Rng As Range, Cls As Range
 Dim J As Long
 
 Set Rng = [B1].CurrentRegion
 ReDim Arr(1 To 3 * Rng.Cells.Count, 1 To 1)
 For Each Cls In Rng(1).Resize(Rng.Rows.Count)
    J = J + 1
    Arr(2 * J - 1, 1) = Cls.Value
    Arr(2 * J, 1) = Cls.Offset(, 1).Value
 Next Cls
 If J Then
    Columns("K:K").ClearContents
    [k1].Resize(3 * Rng.Rows.Count).Value = Arr()
 End If
End Sub

Xài mảng mà "thô thiển" gì "Đại ca".

"Xù xì" như cùi bắp nè:

Public Sub CuibapXuXi()
Dim Rng As Range, Cll As Range, Uida As Long
Set Rng = Range("A1").CurrentRegion
For Each Cll In Rng
    Uida = Uida + 1
    Range("F" & Uida) = Cll.Value
Next Cll
Set Rng = Nothing
End Sub

 

[Let'GâuGâu]

Cần giúp đỡ ghép 2 cột lại tuần tự với nhau. mong ace giúp đỡ mình với

góp thêm một cách làm bằng cthức

D1=INDEX($A$1:$B$5,INT((ROW()+1)/2),MOD((ROW()-1),2)+1)

 

[kim84]

góp thêm một cách làm bằng cthức

D1=INDEX($A$1:$B$5,INT((ROW()+1)/2),MOD((ROW()-1),2)+1)

thanks bác nhiều nhiều quá đơn giản

 

[ndu96081631]

góp thêm một cách làm bằng cthức

D1=INDEX($A$1:$B$5,INT((ROW()+1)/2),MOD((ROW()-1),2)+1)

Trong trường hợp này, tôi nghĩ dùng OFFSET hay hơn INDEX, vì sẽ không bị lỗi khi kéo fill quá giới hạn