Hellp me in mảng ra khu vực bằng Mảng động với mn ơi

[dangxuanthanhjp]

Sub DymArr()
Dim ar()
Dim rng As Range

ReDim ar(1 To 15)
ar = Array("Ga Excel 1", "Ga Excel 2", "Ga Excel 3", "Ga Excel 4", "Ga Excel 5", "Ga Excel 6", "Ga Excel 7", "Ga Excel 8", "Ga Excel 9", "Ga Excel 10", "Ga Excel 11", "Ga Excel 12", "Ga Excel 13", "Ga Excel 14")
Dim i As Integer
For i = 1 To 15

Dim targetRange As Range
Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("B2:CG2")
targetRange.Resize.Value = ar(i)
Next
i = i + 1
End Sub

Này sao e in ra nó ddc mỗi gà excel 14 chứ không in ra gà excael 1 -> 14 nhỉ các bác

 

[truongvu317]

Cái này có nhiều cách làm hay lắm,
targetRange.cells(1,i).Value = ar(i)

 

[Hoàng Tuấn 868]

Hellp me in mảng ra khu vực bằng Mảng động với mn ơi​

III. Quy định về tiêu đề bài viết: Tiêu đề bài viết phải sử dụng bằng tiếng Việt có dấu đầy đủ
1. Tiêu đề bài viết phải sử dụng tiếng Việt có dấu (ngoại trừ tiêu đề cho bài trong box Ngoại ngữ).
3. Tiêu đề cần được ghi rõ nghĩa, không được đặt những tiêu đề như: "Chỉ cho tôi với", "Help me", "Quan trọng đây!!!????", "Vào đây coi này", "Hay lắm", "Giúp mình với", "Admin ơi", v.v...

 

[dangxuanthanhjp]

III. Quy định về tiêu đề bài viết: Tiêu đề bài viết phải sử dụng bằng tiếng Việt có dấu đầy đủ
1. Tiêu đề bài viết phải sử dụng tiếng Việt có dấu (ngoại trừ tiêu đề cho bài trong box Ngoại ngữ).
3. Tiêu đề cần được ghi rõ nghĩa, không được đặt những tiêu đề như: "Chỉ cho tôi với", "Help me", "Quan trọng đây!!!????", "Vào đây coi này", "Hay lắm", "Giúp mình với", "Admin ơi", v.v...

Sau mình chú ý ạ

Bài đã được tự động gộp: 10/12/23

Cái này có nhiều cách làm hay lắm,
targetRange.cells(1,i).Value = ar(i)

Bác có sđt không, e add zalo xin chỉ giáo