[µo°Ý]¦p¦ó¦b¤@±iªíùØ,±N¨C¨â¦æ¸ê®Æ ¿é¥X¦¨¤@¦æ
- ©«¤l
- 16
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-9-9
|
[µo°Ý]¦p¦ó¦b¤@±iªíùØ,±N¨C¨â¦æ¸ê®Æ ¿é¥X¦¨¤@¦æ
½Ð±Ð°ª¤â«ç»ò¼g §Ö·Q¯}ÀY
½Ð¬Ý¸ê®Æ®æ®æ¦¡¥I¥ó
ì©l®æ¦¡¦b¤u§@ªí1 §Æ±æ¿é¥X¦¨¤u§@ªí2ªº¸ê®Æ®æ¥Ü
§Úì©lªº·Qªk¬O·Q¦b¨CÓ¤Hªº¤u§@µû¤ñ»P¤u§@³æ¦ì¤ºªº¸ê®Æ©ñ¨ì
¨âÓ°}¦C array_a »P array_b
µM«á¥Î array_a(0)&array_a(0)¨Ó´£¨ú¸ê®Æ¨Ó¦X¨Ö
¥i¬O¤£ª¾¦p¦ó±N¤u§@ªí¤@ªº©Ò¦³¤H¦W¥H¨C¨â¦æ¬°°ò¦¥á¤J
array_a »P array_b ª½¨ì±N©Ò¦³¤H³£³B²z¹L¤@¦¸
²{¦b¬O¥Î²Â¤èªk¶}¤F¤H¼Æx2ªº°}¦C¨Óª½±µ«ü©w¨CÓ¤Hªº¸ê®Æ¦C
¤£¹L³o¼Ë«Ü²Â¤]«Ü¨S¼u©Ê
©Ò¥H·Q¥u§ï¼g¦¨¥Î¨âÓ°}¦C ´N¯à³B²z³o±iªí
¤£®¢¤U°Ý¡A½Ð°ª¤â«ü±Ð °ª©úÂIªº¼gªk
vba ªì¾ÇªÌ ¸U¤À·PÁÂ
mytest.rar (18.28 KB)
|
|
|
|
|
|
|
- ©«¤l
- 128
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥|¤t¦¨³£ÊT崃
- µù¥U®É¶¡
- 2010-9-13
- ³Ì«áµn¿ý
- 2017-5-12
|
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 1# yurckr - Sub Ex()
- Dim i, Ar(1 To 5)
- With Sheets("¤u§@ªí1")
- For i = 8 To .Range("b" & Rows.Count).End(xlUp).Row Step 2
- Ar(1) = .Cells(i, "A")
- Ar(2) = .Cells(i, "B")
- Ar(3) = .Cells(i, "E") & .Cells(i + 1, "E")
- Ar(4) = .Cells(i, "F") & .Cells(i + 1, "F")
- Ar(5) = .Cells(i, "G") & .Cells(i + 1, "G")
- Sheets("¤u§@ªí2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 5) = Ar
- Next
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 16
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-9-9
|
|
|
|
|
|
|