- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
½Ð±Ð¦U¦ì¥ý¶i¡A¸Ó¦p¦ó±Nµ{¦¡¤¤°}¦CDATAªº³¡¥÷¸ê®Æ¾ãÄæ¼g¤JÀx¦s®æ¤º¡A¤p§Ì¤£ª¾¦bÆ[©À¤Wþ¸Ì¿ù»~¤F¡A½Ð¦U¦ì¥ý ...
sptakung1 µoªí©ó 2012-9-15 00:30 - Sub Ex()
- Dim Rng As Range, data(33, 24), i%, j%
- With Sheet1
- For i = 0 To 32
- For j = 0 To 11
- data(i, j) = .Cells(i + 6, j + 9)
- Next
- Next
- For i = 0 To 32
- For j = 12 To 23
- data(i, j) = .Cells(i + 51, j - 3)
- Next
- Next
- End With
- With Sheet2
- .Select
- .[A2].Resize(33, 24) = data
- .Range(Columns(1), Columns(24)).AutoFit
- End With
-
- With Sheet3
- .Select
- .[B1].Resize(24, 33) = Application.Transpose(data)
- .Range(Columns(2), Columns(34)).AutoFit
- End With
-
- End Sub
½Æ»s¥N½X
test_ans.zip (17.86 KB)
|
|