Góc nhờ vả: code tự động điền dữ liệu vào số ô cho trước (1 người xem)

[pepsi9876]

Em nhờ các bác như sau:
em có nhu cầu:
cột 1: dữ liệu X
cột 2: số ô N
Bây giờ làm sao để tự động điền dữ liệu X của cột 1 vào từ cột 3 đến cột N với N sẽ thay đổi theo dòng.
Cảm ơn các bác và cho em xin cảm ơn bằng chầu cafe .

 

[TheThienChu]

Bạn chạy code này.
Nếu mà không được là do hình bé quá đấy nhé
Không cần cà phê đâu, cà pháo cũng được

Sub PepSiCoLa()
Dim SArr, Res, i, j
With ActiveSheet
SArr = .Range("C5").CurrentRegion
ReDim Res(1 To UBound(SArr) - 1, 1 To UBound(SArr, 2) - 2)
For i = 2 To UBound(SArr)
If SArr(i, 1) <> "" Then
For j = 1 To UBound(Res, 2)
If j < SArr(i, 2) + 1 Then
Res(i - 1, j) = SArr(i, 1)
Else
Exit For
End If
Next j
Else
Exit For
End If
Next i
.Range("E6").Resize(UBound(Res), UBound(Res, 2)).ClearContents
.Range("E6").Resize(UBound(Res), UBound(Res, 2)) = Res
End With
End Sub