- ©«¤l
- 32
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 68
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- «n§ë¿¤
- µù¥U®É¶¡
- 2010-9-28
- ³Ì«áµn¿ý
- 2019-10-4
 
|
¤]³\¦³¤j¤j·|½èºÃ¡A¨ä¹ê¦p¤W¼Ó©Òzªº»Ý¨D¡A¥un²³æªºcopy´N¥i¥H¤F¡A·F¹À¦p¦¹¤j¶O©P³¹©O¡H¨ä¥D¦]«Y§^¤H¤@ª½¥H¨Ó¹ï°}¦Cªº¾Þ§@¤£¬Æ¼ô¸Z·QÂǦ¹½m²ß¨Ï¥Îindex¡ATRANSPOSEµ¥¨ç¼Æ¡C¸g¹L¤@¦¤WªººN¯Á¡A¦ü¥G¤w¦³¨Ç±ÙÀò¡A¥Ø«e¥i±o¨ì¦Û¤vªº»Ý¨D¡A¦ý¦s¦³¤pbug¡C±¡§Î¬O¨Ì¦p¤Uªº¥N½X°õ¦æ«á·|³y¦¨sheet3ªºbÄæ§Î¦¨ªÅ¥Õ¡A¦ý§Ú©ú©ú¬O±qb1¶}©lªº¡A¤£ª¾¦³þ¦ì¤j¤j¥i¬°§Ú¸Ñ´b¡CÁÂÁ¡I- Sub test1() '¿é¥X«e3¦C
- Dim rng1 As Range, data(33, 24), i%, j%
- With Sheet1
- .Select '¤§«e¦]¤Ö¤F³o¦C¡A¨Ï±oµ²ªG³£¨S¤ÏÀ³
- For i = 1 To 33
- For j = 1 To 12
- data(i, j) = Cells(i + 5, j + 8)
- Next
- Next
- For i = 1 To 33
test3.rar (16.69 KB)
- For j = 13 To 24
- data(i, j) = Cells(i + 50, j - 4)
- Next
- Next
- End With
- With Sheet3
- .Select
- Set rng1 = .Range("B1:AI3")
- End With
- For i = 1 To rng1.Rows.Count
- rng1.Rows(i) = Application.Index(Application.Transpose(data), i + 1)
- Next
- End Sub
½Æ»s¥N½X |
|