Chuyển cột thành dòng

[hongphuong1997]

Em nhờ các anh chị giúp đỡ như file đính kèm
Em xin cảm ơn ạ

 

[befaint]

Em nhờ các anh chị giúp đỡ như file đính kèm
Em xin cảm ơn ạ

4 cột có cố định không? Hay làm xong rồi lại thêm: nếu em cần chia thành 18 cột thì sao?

 

[hongphuong1997]

4 cột có cố định không? Hay làm xong rồi lại thêm: nếu em cần chia thành 18 cột thì sao?

Cháu cảm ơn bác ạ
nó không cố đinhk bác @befaint bác ơi
Bác giúp cháu nhé
Cháu cảm ơn bác.

 

[befaint]

không cố đinhk

Không cố định thì bạn cho biết nó nằm trong khoảng nào hay bất kỳ?

 

[hongphuong1997]

Không cố định thì bạn cho biết nó nằm trong khoảng nào hay bất kỳ?

Bác @befaint ơi như này nhé
Ví dụ như trong file cháu gửi đó là cách 3 dòng thì lấy
và nó sẽ lấy vô hạn dữ liệu ở cột A
và trả về số cột theo mong muốn
À cháu quên (Bất kỳ) bác ơi

 

[hhoang_56]

Search Google được cái này:

Sub RowToColumnTranspose()
Dim rng As Range
Dim I As Long, numcol As Integer
    numcol = 6    
    I = 2
    Set rng = Range("A1")
    While rng.Value <> ""
        I = I + 1
        rng.Resize(numcol).Copy
        Range("D" & I).PasteSpecial Transpose:=True
        Set rng = rng.Offset(numcol)
    Wend
End Sub

thay đổi số cột ở dòng numcol = 6

 

[hongphuong1997]

Thử cái này:

Sub RowToColumnTranspose()
Dim rng As Range
Dim I As Long, numcol As Integer
    numcol = 6    
    I = 2
    Set rng = Range("A1")
    While rng.Value <> ""
        I = I + 1
        rng.Resize(numcol).Copy
        Range("D" & I).PasteSpecial Transpose:=True
        Set rng = rng.Offset(numcol)
    Wend
End Sub

thay đổi số cột ở dòng numcol = 6

Em chẳng biết xưng hô như nào với anh (Bởi vì em không hiểu rõ)
Nhưng em cảm ơn anh rất nhiều
Chúc anh vui vẻ, hạnh phúc và may mắn
Chúc anh nữa là thành đạt hết tất cả anh nhé.

 

[hongphuong1997]

Search Google được cái này:

Sub RowToColumnTranspose()
Dim rng As Range
Dim I As Long, numcol As Integer
    numcol = 6   
    I = 2
    Set rng = Range("A1")
    While rng.Value <> ""
        I = I + 1
        rng.Resize(numcol).Copy
        Range("D" & I).PasteSpecial Transpose:=True
        Set rng = rng.Offset(numcol)
    Wend
End Sub

thay đổi số cột ở dòng numcol = 6

Bác
hhoang_56
ơi, nếu như trong trường hợp lấy cách dòng như thế này thì phải làm như nào hở bác

 

[snow25]

Bác
hhoang_56
ơi, nếu như trong trường hợp lấy cách dòng như thế này thì phải làm như nào hở bác

Em thử cái này.

Sub chuyendulieu()
    Const socot As Long = 5
    Const buocdem As Integer = 2
    Dim i As Long, lr As Long, arr, kq, a As Long, b As Long, c As Long
    With Sheets("sheet1")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("A1:B" & lr).Value
        ReDim kq(1 To UBound(arr), 1 To socot)
        For i = 1 To UBound(arr) Step buocdem
            a = Int(c / socot) + 1
            b = (c) Mod socot + 1
            c = c + 1
            kq(a, b) = arr(i, 2)
        Next i
        .Range("E3").Resize(1000, 20).ClearContents
        .Range("E3").Resize(a, socot).Value = kq
   End With
End Sub

 

[hongphuong1997]

Không cố định thì bạn cho biết nó nằm trong khoảng nào hay bất kỳ?

Cháu cảm ơn bác
befaint
Bác viết nhanh quá, đêm qua cháu không biết bác viết bài giúp cho cháu, bây giờ cháu mới biết,
Cháu cảm ơn bác rất nhiều.

 

[hongphuong1997]

Em thử cái này.

Sub chuyendulieu()
    Const socot As Long = 5
    Const buocdem As Integer = 2
    Dim i As Long, lr As Long, arr, kq, a As Long, b As Long, c As Long
    With Sheets("sheet1")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("A1:B" & lr).Value
        ReDim kq(1 To UBound(arr), 1 To socot)
        For i = 1 To UBound(arr) Step buocdem
            a = Int(c / socot) + 1
            b = (c) Mod socot + 1
            c = c + 1
            kq(a, b) = arr(i, 2)
        Next i
        .Range("E3").Resize(1000, 20).ClearContents
        .Range("E3").Resize(a, socot).Value = kq
   End With
End Sub

Chuẩn quá anh @snow25 ơi
Em cảm ơn anh nhiều nhé
Chúc anh vui vẻ