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

[µo°Ý] ½Ð¨D¨ç¼Æ

[µo°Ý] ½Ð¨D¨ç¼Æ

dim A as string
A="A1,A10:A20,A40:A50....X1,D2:F15,...."
¦]¬°len(A)>255,©Ò¥Hset R=range(A)¥¢±Ñ
½Ð¨D¤èªk§âA±Ù¶}(A¬O","³s±µªº¦r¦ê),±o¨ìµ²ªGR=union(R1,R2,...Rn)
Àx¦s®æ°Ñ·Ó¦r¦ê³Ìªø¬O"XFD1048576:XFD1048576"¦@21­Ó¦r²Å,255/21=12
B=split(A,",",12),±o¨ì2­Ó¦r¦ê(§âB(0)¨ìB(10)¥Î","¦ê°_¨Ó)©MA(11)
¦ýlen(A(11))¤S¤j©ó255±µ¤U¨Ó¦p¦ó³B²z©O?·Q¤£¥X¤èªk,½Ð®v¤÷À°¦£,ÁÂÁ¤F
lmh

dim A as string
A="A1,A10:A20,A40:A50....X1,D2:F15,...."
¦]¬°len(A)>255,©Ò¥Hset R=range(A)¥¢±Ñ
½Ð ...
mhl9mhl9 µoªí©ó 2014-11-21 01:04


§Ú¦³¤èªk¤F
Sub test()
Dim E As String
Dim R As Range

E= "$A$7:$P$10,$A$15:$P$18,$A$22:$P$25,$A$50:$P$73,$A$106:$P$145,$A$174:$P$201,$A$218:$P$249,$A$262:$P$273,$A$280:$P$281,$A$288:$P$289,$A$296:$P$305,$A$308:$P$313,$A$322:$P$337,$A$343:$P$346,$A$351:$P$354,$A$358:$P$361,$A$386:$P$409,$A$442:$P$481,$A$510:$P$537"
For Each i In Split(E, ",")
    If R Is Nothing Then
        Set R = Range(i)
    Else
        Set R = Union(R, Range(i))
    End If
Next i
        
R.Select   
End Sub
lmh

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD