- ©«¤l
- 2812
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2868
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-6-3
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2023-5-4 16:17 ½s¿è
¦^´_ 5# killer77107
³oþ¬O¨âºØ»Ý¨D
¬Oª½±µ±Nªí¤@...§Ç¸¹¤£³sÄò(ªÅ¥Õ--µø¬°¤W¤@ӧǸ¹¦P²Õ), Åܦ¨¦X¨Öªºªí§a!(¤@ӧǸ¹¤@¦æ, BÄæ¦X¨Ö+´«¦C)
»Ý¨D1>>ª½±µ²£¥Í¦X¨Ö
Sub ¦X¨Ö_01()
Dim Arr, i&, N&
Arr = Range([a1], [b65536].End(3))
For i = 2 To UBound(Arr)
If Arr(i, 1) <> "" Then
N = N + 1
Arr(N + 1, 1) = Arr(i, 1)
Arr(N + 1, 2) = Arr(i, 2)
Else
Arr(N + 1, 2) = Arr(N + 1, 2) & Chr(10) & Arr(i, 2)
End If
Next i
[e:f].ClearContents
[e1:f1].Resize(N + 1, 2) = Arr
End Sub |
|