ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤£¦P¤u§@ªí¤ºªº¸ê®Æ¤ñ¹ï»P¶ñ¤J.

¦^´_ 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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD