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

Äæ¦ì¿ï¨ú°ÝÃD

Äæ¦ì¿ï¨ú°ÝÃD

¦³¤G­Ó«D³sÄòÄæ¦ì¿ï¨ú(A1,B1)¡A¦ý¸ê®ÆB1ªø«×¦h©óA1
¿ï¨ú®É¡A«o¥HA1¬°¥D¡A­n¦p¦ó¥H³Ìªø(B1)¬°¥D©O¡AÁÂÁÂ

A1 B1
2    6
3  
      1
7   3
     5

Set a = Range(A1, Range("a65536").End(xlUp))
Set b = Range(B1, Range("a65536").End(xlUp))
Union(a, b).Select

¦^´_ 1# funnydisk

Set a = Range("A1", Range("a65536").End(xlUp))
Set b = Range("B1", Range("b65536").End(xlUp))
Union(a, b).Select
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂHsieh¤jªº¦^ÂСA¬O§Ú¤Ö¥´¤F""¡A¦pªG¬O³o­Ó»yªk¡A¥u·|¿ï¨ú¨ìA1ªº7¨º­Ó¼Æ¦r¨º¦C¡A¤£·|¥]§tB1ªº5¡A©Ò¥H·Q­n½Ð±Ð¦p¦óA1»PB1¦³¸ê®Æªº³£¯à¿ï¨ú¨ì¡AÁÂÁÂ

TOP

¦^´_ 3# funnydisk
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim R As Integer
  4.     R = IIf(Cells(Rows.Count, 1).End(xlUp).Row > Cells(Rows.Count, 2).End(xlUp).Row, Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row)
  5.     Range("a1:b" & R).Select
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ·PÁÂGBKEE¤j¡A³o¼Ë¥i¥H¹B¦æ¤F¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD