¿ï©w¬YÓ¤£½T©w¼Æ¶qªº½d³òªº»yªk«ç»ò¼g
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 8.1
- ³nÅ骩¥»
- excel2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-24
- ³Ì«áµn¿ý
- 2015-7-24
|
¿ï©w¬YÓ¤£½T©w¼Æ¶qªº½d³òªº»yªk«ç»ò¼g
¤j®a¦n~³Ìªñ¦]¤u§@»Ý¨D¦b¦Û¾ÇEXCEL VBAªº¼gªk ¡A¤w´£¤É¬Y¨Ç·~°Èªº®Ä²v
¤u§@¤W§Ú¦³Ó»Ý¨D¡A¨C¤é§Ú¥²¶·½Õ¥X«e¤@¤Ñªº¸ê®Æ¡A
µ§¼Æ¤£¤@©w¡A¦³®ÉԶȦ³´X¦Ê´X¤Qµ§¡A¦³®ÉÔ«o¦³¤W¸Uµ§¡C
ÁöµM§Ú¦³¼g¤@Ó¬O±Nµ§¼Æ¦Û°Ê§ì¨ì10¸Uµ§¡A¦ý¬O§Ú·Qn§ó¬ü¤Æ¬ÛÃö¥¨¶°¡C
©Ò¥H·Qn¼g¤@Ó¬O¡A¥¨¶°·|¦Û°Ê§ì¨úA2:BX ªº½d³ò¡C BX¬°³Ì«á¤@µ§¸ê®Æ¡A¼Æ¶q¨C¤Ñ³£¤£¤@¼Ë¡C
§Ú¹Á¸Õ¥Î
.End(xlDown)¥h¥NB¦C
©Î¬O¥Î .end(xlDown) »P.offset ªº»yªk¥h¥NA¦C
¤]¹Á¸Õ¥Î Range ("A2: i ") ¡A³]©w for i = (³oÃä§Ú¹Á¸Õ¥Î¤W±¦n´XºØ¤è¦¡)
³£¬OÅã¥Ü»Pªk¿ù»~¡C
¬Q¤Ñ§Úª¦¤å¬d¤F¤@ӱߤW¡AÁÙ¬O¬d¤£¥XÓÀYºü..
¥i¥H½Ð¤j®a§iª¾§Ú¸Ó¥ÎþºØ»yªk¡AÁÂÁ¤j®a.. |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 5# woodyliu
aa¡Bbb ¥u¬O¤è«K¥´¦r¦Ó¤w¡I
½Ð°Ñ¦ÒVBA¤¤ªº«Å§iÅܼƻ¡©ú |
|
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 8.1
- ³nÅ骩¥»
- excel2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-24
- ³Ì«áµn¿ý
- 2015-7-24
|
½Ð°Ý~
§Ú¬ÝªO¤W«Ü¦h¤H¦bÅܼƳ£³]©w aa ¡Bbbµ¥~
½Ð°Ý³o®Úª½±µ³]©w i¦³¤£¦P¶Ü?
ÁÙ¬O»¡aa ¡Bbb¨ä¹ê¬O¦³¯S§Oªº§t·N¸ò¥Îªk |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¦^´_ 1# woodyliu
¤]¹Á¸Õ¥Î Range ("A2: i ") ¡A³]©w for i = (³oÃä§Ú¹Á¸Õ¥Î¤W±¦n´XºØ¤è¦¡)
§A¤W±¬õ¦rªº³¡¥÷»yªk¤]¼g¿ù¦bÂù¤Þ¸¹¤¤(")ªº¦r¬°¦r¦ê¡Ai¬OÅܼơAn¥Î³sµ²ªº¤è¦¡¨Ó³sµ²¤~¯àŪ¨ìÅܼÆiªºÈ
Range ("A2: " & i)³o¸ÌiªºÈ¥²¶·¬°Àx¦s®æªº¦ì¸mAddress¡A¬°¦r¦ê
Range ("A2: B" & i)³o¸ÌiªºÈ«h¬O¬°¦C¸¹Row¡A¬°¼Æ¦r
¤W±2ºØ¼gªk¬Ò¥i¡A¥u¬O©w¸qiÅܼƮɤ£¦P½}¤F |
|
|
|
|
|
|
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 8.1
- ³nÅ骩¥»
- excel2013
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-24
- ³Ì«áµn¿ý
- 2015-7-24
|
ÁÂÁ±zªºÀ°¦£~~§Ú¬ã¨s¤@¤UQQ |
|
|
|
|
|
|
- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-7-9
|
¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-7-24 11:11 ½s¿è
¦^´_ 1# woodyliu
§Ú´£¨Ñ¤U¦C¦UºØ¼gªk¡A§A¥ÎF8³v¦æªº°õ¦æ¬Ý¬Ý¡A¦bÆ[¬Ýªº¹Lµ{¤¤½Ð¥´¶}"°Ï°ìÅܼƵøµ¡"¨ÓÆ[¹îÅܼƪºÅܤƷ|§óÁA¸Ñªº
- Public Sub Ex()
- aa = Cells(Rows.Count, 1).End(xlUp).Row
- Range("A1:B" & aa).Select
- aa = Cells(Rows.Count, 1).End(xlUp).Address
- Range("A1:" & aa).Select
- aa1 = Cells(1, 1).End(xlDown).Row
- Range("A1:B" & aa1).Select
- aa1 = Cells(1, 1).End(xlDown).Address
- Range("A1", aa1).Select
- bb = Cells(Rows.Count, 2).End(xlUp).Row
- Range("A1:B" & bb).Select
- bb = Cells(Rows.Count, 2).End(xlUp).Address
- Range("A1", bb).Select
- bb1 = Cells(1, 2).End(xlDown).Row
- Range("A1:B" & bb1).Select
- bb1 = Cells(1, 2).End(xlDown).Address
- Range("A1", bb1).Select
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|