¦b¤£©T©w½d³ò¤º§ä¥X¬Û¦P¸ê®Æ
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 1# jesscc
½Ð°Ñ¦Ò- Sub test()
- Dim arr
- Dim brr()
- arr = Range("D12", "AK" & [D65536].End(xlUp).Row)
- For i = 1 To UBound(arr)
- For j = 23 To 33 Step 3
- If arr(i, j) <> "" Then
- n = n + 1
- ReDim Preserve brr(1 To 9, 1 To n)
- brr(1, n) = arr(i, j + 2)
- brr(2, n) = arr(i, j)
- brr(7, n) = arr(i, 10) * arr(i, j + 1)
- brr(9, n) = arr(i, 1)
- End If
- Next j
- Next i
- With Sheets("¤u§@ªí2")
- .Rows("12:65536").Delete
- .[A12].Resize(n, 9) = Application.Transpose(brr)
- .Select
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 4# jesscc
Q1¡G¬Û¦Pªº¼t°Ó¨S¦³±Æ¦C¦b¤@°_
A1¡G¥un¦bWith Sheets("¤u§@ªí2")¤ºªº.Select¤§«e´¡¤J©³¤U³o¦æµ{¦¡½X
.[A12].Resize(n, 9).Sort key1:=.[A12]
Q2¡Garr©Mbrr()¦³¤°»ò®t§O?
A2¡Garr¡GÄÝÀRºA°}¦C¡A¥Î¦b¥i½T»{°}¦C¤j¤pªº±¡ªp
brr()¡GÄݰʺA°}¦C¡A¥Î¦bµLªk½T»{°}¦C¤j¤pªº±¡ªp |
|
|
|
|
|
|