Code nhân bản chuỗi theo điều kiện (1 người xem)

[mhung12005]

Xin chào các thành viên GPE !

Em có một bài toán thế này mà loay hoay mãi không giải quyết được.

Yêu cầu em đã viết trong file đính kèm rồi. Mời các anh chị xem file ạ

 

[nghiaphuc]

Xin chào các thành viên GPE !

Em có một bài toán thế này mà loay hoay mãi không giải quyết được.

Yêu cầu em đã viết trong file đính kèm rồi. Mời các anh chị xem file ạ

Thử code sau xem sao:
[GPECODE=vb]Sub Test()
Dim Rng As Range
With Sheets("Sheet2")
.[E3:E65536].ClearContents
For Each Rng In .Range(.[C3], .[C65536].End(xlUp))
.[E65536].End(xlUp).Offset(1).Resize(Rng) = Rng.Offset(, -1)
Next
End With
End Sub[/GPECODE]

 

[Quang_Hải]

Xin chào các thành viên GPE !

Em có một bài toán thế này mà loay hoay mãi không giải quyết được.

Yêu cầu em đã viết trong file đính kèm rồi. Mời các anh chị xem file ạ

Nếu dữ liệu nhiều thì xài mảng sẽ nhanh hơn chút

Sub test()
Dim data(), Result(1 To 10000, 1 To 1), i As Long, k As Long, n As Long
data = Range([B3], [B65536].End(3)).Resize(, 2).Value
For i = 1 To UBound(data)
   For n = 1 To data(i, 2)
      k = k + 1
      Result(k, 1) = data(i, 1)
   Next
Next
[F3].Resize(k) = Result
End Sub