- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-4
|
Sub TEST()
Dim Arr, TS, Cr, C%, i&, j%, N&
Sheets("¿é¥X").UsedRange.Offset(4, 0).EntireRow.Delete
Arr = Range([¸ê®Æ!A1], Sheets("¸ê®Æ").UsedRange)
Cr = Array(, 2, 3, 4, 5, 6, 7, 8, 18, 19, 20, 22, 22, 23, 23)
For i = 6 To UBound(Arr)
If Arr(i, 20) <> "" Then N = N + 1 Else GoTo i01
For j = 1 To UBound(Cr)
Arr(N, j) = Arr(i, Cr(j))
If j = 11 Or j = 13 Then Arr(N, j) = Left(Arr(N, j), 8)
If j = 12 Or j = 14 Then Arr(N, j) = Right(Arr(N, j), 5)
Next j
i01: Next i
If N = 0 Then Exit Sub
Application.ScreenUpdating = False
With [A5].Resize(N, UBound(Cr))
.Value = Arr
.Borders.LineStyle = 1
.Sort key1:=.Item(2), key2:=.Item(10), Header:=xlNo
With Range(.Columns(8), .Columns(9))
For Each TS In Array("AA_A", "BBB_B", "CC_C", "DDD_D", "EEE_D", "FFF_F", "GGG_G", "HH_G", "MM_M", "LLL_L", "QQQ_L", "NNN_N", "TTT_N")
Cr = Split(TS, "_")
.Replace "*" & Cr(0) & "*", String(3, Cr(1))
Next
End With
End With
End Sub
¼gªk¤jP¬Û¦P~~
±Æ§Ç¬°¦ó¥u¦³«e10Äæ, ¨º«á±¤£´N¶Ã¤F®M??? |
|