- ©«¤l
- 36
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 93
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-2-27
- ³Ì«áµn¿ý
- 2022-2-25
|
¦^´_ 17# ã´£³¡ªL
±z¦n¡AÁÂÁ±zÀ°§Ú§ïªº¡AÅܪº¶W¯Å¤è«K
·Q½Ð±Ð±z´XÓ¨ç¼Æªº°ÝÃD
1.Ãö©ó&©Î$»P%¡AVBA®Ñ¤W¨S¥X²{¹L³oÓ¡A¤£¾å±o¬O«ü¤°»ò·N«ä
2.
Dim MyArray(1 To 10, 5 To 15, 10 To 20) ' Declare array variables.
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
ºô¸ô¤W¥u¬Ý¹L¤W±³oºØ¥Îªk
Arr = [n13].CurrentRegion
UBound(Arr, 2)>>>>³o¬O«ü¤°»ò·N«ä©O¡H
3.¸ê®Æ¨Ó·½¥Ø«e·|¦³¨âºØ¡A²Ä¤@ºØ¬O¨BÆJ1>¨BÆJ2>¨BÆJ3....³o±z¤W¦¸¦³À°§Ú¸Ñ¨M
Y¬O²Ä¤GºØ¥iª½±µ¶K¤W¨BÆJ2¡A¨Ã¥Bµn°O¨ì¨BÆJ3......¥i¥H§ï¦¨¦pªG¨BÆJ1¬OªÅ®æª½±µ§ì¨BÆJ2¶K¤W¨BÆJ3¶Ü¡H- Sub ¸ê®ÆÂà¸m¶K¤W()
- Dim Arr, Brr, i&, j&, T$, R&, C%
- Range("a13:g2000").ClearContents
- If Arr = [n13].CurrentRegion <> "" Then
- ReDim Brr(1 To 2000, 1 To 7)
- For j = 1 To UBound(Arr, 2)
- For i = 1 To UBound(Arr)
- T = Arr(i, j): If T = "" Then GoTo i01
- C = C + 1: Brr(R + 1, C) = T
- If C = 7 Then C = 0: R = R + 1
- i01: Next i
- Next j
- [a13].Resize(R + 1, 7) = Brr
- Else
- End Sub
½Æ»s¥N½X |
|