vba ¦¹³B»Ýnª«¥ó (¿ù»~ 424) ¨D¸Ñ
- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2016-8-31
- ³Ì«áµn¿ý
- 2018-10-2
|
vba ¦¹³B»Ýnª«¥ó (¿ù»~ 424) ¨D¸Ñ
¸Ó¦p¦óקïµ{¦¡½X©O
µ{¦¡½X¦p¤U©Ò¥Ü
¤Q¤À·PÁÂ
¦b°»¿ù¿ù»~¤¤ ¶]¨ì²Ä¤T¦æ´N·| ¸õ¥X ¿ù»~424 ><
Sub test()
ReDim arr(1 To 10000, 1 To 4)
brr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(brr)
If Len(brr(i, 5)) Then
For s = 1 To brr(i, 5)
n = n + 1
For j = 1 To UBound(brr, 2) - 1
arr(n, j) = brr(i, j)
Next j
Next s
End If
Next i
Sheet2.[a1].CurrentRegion.Offset(1).ClearContents
Sheet2.[a2].Resize(n, 4) = arr
End Sub |
|
|
|
|
|
|