- ©«¤l
- 11
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 59
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2020-2-14
- ³Ì«áµn¿ý
- 2021-5-3
|
VBA ª«¥ó¿ï¨ú¼gªk°ÝÃD
½Ð°Ý¦U¦ì¤j¤j- Sub test()
- Dim a As Worksheet
- Dim b As Worksheet
- Set a = Sheets("¤u§@ªí1")
- Set b = Sheets("¤u§@ªí2")
- For i = 0 To 2
- a.Select
- Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy
- b.Select
- Cells(i * 9 + 2, 2).Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
- Next
- End Sub
½Æ»s¥N½X §Ú§â
a.Select
Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy ³o¬qÁY¼g
a.Range(Cells(i + 2, 2), Cells(i + 2, 6)).Copy ¬°¤°»ò¥L·|¸õ¥X¿ù»~?
¬¡¶Ã¯1.rar (17.18 KB)
|
|