- ©«¤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
|
¦^´_ 11# yc1031
Sub ¨Ì±b¤á¶K¤JÈ()
Dim Sht As Worksheet, T$, R&, xE As Range
[Åçºâ!I3:P6000].ClearContents
For Each Sht In Sheets
If INSTR(Sht.NAME ,"#")=0 Then GoTo 101
R = Sht.Cells(Rows.Count, 2).End(xlUp).Row - 3
If R <= 0 Then GoTo 101
Set xE = [Åçºâ!I1].Cells(Rows.Count, 1).End(xlUp)
xE(2, 3).Resize(R, 6) = Sht.[A4].Resize(R, 7).Value
xE(2, 1).Resize(R) = Sht.Name
xE(2, 2).Resize(R) = "#" & SPLIT(Sht.Name,"#")(1)
101: Next
End Sub |
|