Code tách dữ liệu 1 hàng thành n hàng

[NguyenNgocSon]

Em gặp phải vấn đề xử lý như sau:
- Có 1 hàng dữ liệu gồm nx8 phần tử
- Giờ em muốn tách hàng này thành n hàng, mỗi hàng có 8 phần tử
Nội dung như file sau:

 

[ndu96081631]

Em gặp phải vấn đề xử lý như sau:
- Có 1 hàng dữ liệu gồm nx8 phần tử
- Giờ em muốn tách hàng này thành n hàng, mỗi hàng có 8 phần tử
Nội dung như file sau:

Cái này For... Next rồi gán vào mảng Arr(1 to n, 1 to 8) là được (với n là số dòng của mảng mới bạn phải tự tính)
Tôi nghĩ bài này không làm khó được bạn chứ

 

[Ba Tê]

Em gặp phải vấn đề xử lý như sau:
- Có 1 hàng dữ liệu gồm nx8 phần tử
- Giờ em muốn tách hàng này thành n hàng, mỗi hàng có 8 phần tử
Nội dung như file sau:

Cái này For... Next rồi gán vào mảng Arr(1 to n, 1 to 8) là được (với n là số dòng của mảng mới bạn phải tự tính)
Tôi nghĩ bài này không làm khó được bạn chứ

Cái này cũng "ngộ ngộ", chưa viết lần nào, thử cái coi:

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long
    Rng = Range([A1], [IV1].End(xlToLeft)).Value
ReDim Arr(1 To UBound(Rng, 2) / 8, 1 To 8)
K = 1
For I = 1 To UBound(Rng, 2)
    J = J + 1
    Arr(K, J) = Rng(1, I)
    If J = 8 Then
        J = 0: K = K + 1
    End If
Next I
    [A10].Resize(K - 1, 8).Value = Arr
End Sub