Đưa dữ liệu vào ô Merge Cell bằng vòng lặp. (1 người xem)

[nth09061985]

Em muốn lấy dữ liệu từ vùng D1:M1 để đưa vào vùng các ô đã được merge cell từ A3:A32.
Em có viết code như sau nhưng kết quả sau khi chạy code vẫn thiếu các giá trị. Vậy em muốn nhờ các anh chị giúp em phương án xử lí tình huống này với ạ.

Public Sub merger()
    Dim i As Long, Rng As Range, d As Long
    Set Rng = Sheet1.Range("D1:M1")
For i = 1 To Rng.Columns.Count
    d = d + 1
    Cells(2, 1).Offset(d, 0) = Rng(1, i)
Next i
End Sub

P/S: Em biết là kị việc dùng merge cell nhưng trong tình huống của em là là bắt buộc ạ.
Dữ liệu và kết quả mong muốn em đã để trong File đính kèm ạ!

 

[HungQuoc49]

Em muốn lấy dữ liệu từ vùng D1:M1 để đưa vào vùng các ô đã được merge cell từ A3:A32.
Em có viết code như sau nhưng kết quả sau khi chạy code vẫn thiếu các giá trị. Vậy em muốn nhờ các anh chị giúp em phương án xử lí tình huống này với ạ.

P/S: Em biết là kị việc dùng merge cell nhưng trong tình huống của em là là bắt buộc ạ.
Dữ liệu và kết quả mong muốn em đã để trong File đính kèm ạ!

Thử sửa thế này xem sao

Public Sub merger()
    Dim i As Long, Rng As Range
    Set Rng = Sheet1.Range("D1:M1")
For i = 1 To Rng.Columns.Count
    Cells(i * 2 + 1, 1) = Rng(1, i)
Next i
End Sub

 

[diemhuyenanh]

Public Sub merger()
Dim i As Long, Rng As Range, d As Long
d = 1
Set Rng = Sheet1.Range("D1:M1")
For i = 1 To Rng.Columns.Count
d = d + 2

Cells(d, 1) = Rng(1, i)
Next i

End Sub

 

[SA_DQ]

Mình quan tâm đến vấn đề là làm sao bạn fải trộn ô làm vậy?
Nhìn chung VBA không ưa lắm với những ô trộn;

Thêm 1 tham khảo cho vui:

Public Sub GPEmerger()
    Dim I As Long, Rng As Range
 Set Rng = Sheet1.Range("D1:M1")
 'MsgBox Rng.Count'
 For I = 1 To Rng.Count
    Cells(I * 2 + 1, 1).Value = Rng(I).Value
 Next I
End Sub

 

[nth09061985]

Cảm ơn tất cả các bạn, code của các bạn đều cho kết quả chính xác rồi!
Chúc tất cả các bạn 1 ngày làm việc hiệu quả!