chuyển từ dòng thành cột (1 người xem)

[DMQ]

Em có file đính kèm, mong các AC giúp em chuyển như trong file dùm ah.

 

[chuot0106]

Em có file đính kèm, mong các AC giúp em chuyển như trong file dùm ah.

Dùng VBA có được không bạn?

 

[chuot0106]

Nếu dùng VBA thì dùng đoạn code này:

Public Sub ConvertRowtoClumn()
Dim i As Long, j As Long, k As Long, ten(), tt(), diachi, socm(), nc(), rng As Range
Set rng = Sheet1.Range("A2:C" & Sheet1.Range("C65536").End(xlUp).Row)
    ReDim ten(1 To rng.Rows.Count, 1 To 1)
    ReDim diachi(1 To rng.Rows.Count, 1 To 1)
    ReDim socm(1 To rng.Rows.Count, 1 To 1)
    ReDim nc(1 To rng.Rows.Count, 1 To 1)
    ReDim tt(1 To rng.Rows.Count, 1 To 1)
For i = 1 To rng.Rows.Count
    k = k + 1
    ten(k, 1) = rng(2 * i - 1, 2)
    diachi(k, 1) = rng(2 * i, 2)
    socm(k, 1) = rng(2 * i - 1, 3)
    nc(k, 1) = rng(2 * i, 3)
    If rng(i, 1) <> "" Then
    j = j + 1
    tt(j, 1) = rng(i, 1)
    End If
Next i
    [F2].Resize(k, 1) = tt
    [G2].Resize(k, 1) = ten: [H2].Resize(k, 1) = diachi
    [I2].Resize(k, 1) = socm: [J2].Resize(k, 1) = nc
End Sub

 

[alodie123]

Nếu dữ Liệu nhiều mình khuyên bạn nên dùng VBA. Công thức thì nặng bảng tính lắm.

 

[DMQ]

Cám ơn các bạn!!!! Dùng VBA thì tốt quá.