- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 1# yeh199200
§A¸Õ¬Ý¬Ý³o¬O¤£¬O§Anªº :- Sub nn()
- Dim lCurRows As Long, lJ As Long
- Dim rData As Range
-
- Set rData = Sheets("¼Æ¾Ú").Cells(1, 1)
-
- With rData
- For lJ = 4 To 17
- If .Cells(lJ, 1) <> "" And .Cells(lJ, 3) <> "" Then
- With Sheets(CStr(.Cells(lJ, 1)))
- lCurRows = .Cells(Rows.Count, 1).End(xlUp).Row
- .Cells(lCurRows, 1).Resize(1, 10).Copy
- .Cells(lCurRows + 1, 1).PasteSpecial
- .Cells(lCurRows + 1, 1) = Date ' ¤µ¤Ñ¤é´Á
-
- rData.Parent.Cells(lJ, 3).Resize(1, 4).Copy
- .Cells(lCurRows + 1, 2).PasteSpecial Paste:=xlPasteValues
- End With
- End If
- Next lJ
- End With
- End Sub
½Æ»s¥N½X |
|