¤£¦P¤u§@ªí¤ºªº¸ê®Æ¤ñ¹ï»P¶ñ¤J.
- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
 
|
¦^´_ 4# GBKEE
½Ð°Ý «Å§i¦¡
1).Dim E As Range , I ©M Dim E, I As Range ¬O¤@¼Ëªº·N«ä¶Ü?
2).For Each E In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
¤¤¦pªG¥u³o¼Ë¼g Sheet1.range("A:A") ©M Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants) ªº®t§O¦b¨º¸Ì? ¤£¬O³£·|±½´y¤@¹M¶Ü?
3).I = Application.Match(E, Sheet2.Range("A:A"), 0)
³o¼Ë¤@¦æ³o·|¦bSheet2.Range("A:A")±½´y¥X¬Ûµ¥ªº¸ê¶Ü?
4.)If IsNumeric(I) Then E.End(xlToRight).Offset(, 1) = Sheet2.Cells(I, "B")
¬°¤°»òn§@°µ IsNumeric(I) ³oӰʧ@ ©O?
|
|
V98
|
|
|
|
|
- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
 
|
¦^´_ 7# HUNGCHILIN
ªü¦Nª©¥D:¤£¬O¦Ò¸Õ,¬O¯uªº¤£À´,¸g¹L§Aªº¸ÑÄÀ·N«ä¬O³o¼Ëªº¶Ü?
Dim a, b As Intger
1)a ©M b ªº«¬§O¬O¤£¤@¼Ëªº. (a ¬O Variant <Excel ªº¹w³]«¬§O> ), b ¬OInteger .
2)·N«ä¬O Dim «á±ªº",", ¬O¤@Ó¤@ÓÅܼƪº¤À¹j, ¨CÓÅܼƳ£¬O¿W¥ßªº.
§Æ±æ³o¦¸¯uªº·dÀ´¤F,¼g VBA ®É±`¦b³o¸Ì¥X¿ù. |
|
V98
|
|
|
|
|