- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 7# dragonbx - Sub Ex()
- Dim Rng As Range
- With Sheets("1")
- Set Rng = .Range("F1", .Cells(12, .[F1].End(xlToRight).Column)) '¸ê®Æ½d³ò
- If Rng.Columns.Count >= 30 Then '¸ê®Æ½d³òÄæ¼Æ >= 30
- .Range(Rng.Cells(1, Rng.Columns.Count - 29), Rng.Cells(Rng.Cells.Count)).Copy Sheets("sheet1").[A7]
- 'Rng.Cells(1, Rng.Columns.Count - 29) ' ¸ê®Æ½d³òÄæ¼Æ -29ªº Äæ¦ì
- 'Rng.Cells(Rng.Cells.Count)) '¸ê®Æ½d³ò ³Ì«á¤@Ó¦ì¸m
- Else
- Rng.Copy Sheets("sheet1").[A7]
- End If
- End With
- End Sub
½Æ»s¥N½X |
|