- ©«¤l
- 59
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 75
- ÂI¦W
- 277
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ò¶©
- µù¥U®É¶¡
- 2012-7-5
- ³Ì«áµn¿ý
- 2024-11-27
|
¦^´_ 1# armin0521 - Sub test1()
- Sheets.Add after:=Sheets(Sheets.Count)
- Sheets(Sheets.Count).Name = "Á`ªí"
- Sheets(Sheets.Count).[a1] = "©m¦W"
- Sheets(Sheets.Count).[b1] = "¼Æ¶q"
- Sheets(Sheets.Count).[c1] = "¤é´Á"
- Sheets(Sheets.Count).[d1] = "¨Ó·½¤u§@ªí"
- For i = 1 To Sheets.Count - 1
- Sheets(i).Range("b1:b3").Copy
- Sheets(Sheets.Count).[a65535].End(xlUp).Offset(1).PasteSpecial Transpose:=True
- Cells(Selection.Row, 4) = Sheets(i).Name
- Next
-
- Sheets("Á`ªí").Sort.SortFields.Add Key:=Range("C2:C" & [c65535].End(xlUp).Row), Order:=xlAscending
- Sheets("Á`ªí").Sort.SortFields.Add Key:=Range("B2:B" & [b65535].End(xlUp).Row), Order:=xlAscending
- With Sheets("Á`ªí").Sort
- .SetRange Range("A1:D" & [c65535].End(xlUp).Row)
- .Header = xlYes
- .MatchCase = False
- .Orientation = xlTopToBottom
- .SortMethod = xlPinYin
- .Apply
- End With
- MsgBox "¦X¨Ö§¹¦¨"
-
- End Sub
½Æ»s¥N½X |
|