나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 놀란토끼 (atmyhome)

추천:  2
파일:     조회:  1865
제목:   [RE]다중영역을 select 하는 방법에 대해서
     
  a1, b2, c3를 동시에 range로 select 하는 방법

set k = range("a1")
set l = range("b1")
set m = range("c1")

union(k,l,m).select

위와 같은 방법 말고.

range("a1","b2","c3").select 이런식의 방법은 없나요..
물론 위의 것은 오류가 납니다.

간단히 range개체를 이용해서 쉽게 하는 방법은 없나요. union을 쓰면 너무 길어져서 말입니다. 제가 a1, b2,c3를 동적배열로 구했는데. 

한꺼번에 이 세 셀을 선택할려구 하는데 방법이 생각나지 않아서요..
For intnum = LBound(addcell) To UBound(addcell)
    k = k & "," & addcell(intnum)
Next intnum

대충 이런식으로 구한 주소를 모두 선택하기 위해서 입니다.

==============[복대리님 글에 대한 답변입니다]==============

안녕하세요?

Sub 값있는셀선택하기()
  Range("C8:C30").SpecialCells(xlCellTypeConstants, 23).Select
End Sub

아래 질문과 연계한다면....
위 한줄의 구문으로 해결될거 같아서 답변달아봅니다......



한편 아래구문도 참고해보세요...

Sub 셀선택()
  Dim My_addr As String, i As Integer
  For i = 1 To 10
    My_addr = My_addr & Cells(i, i).Address(0, 0) & ","
  Next i
  MsgBox "순환문을 통해 얻은 문자열은 " & vbCr & My_addr & vbCr & "입니다."
  
  
  My_addr = Left(My_addr, Len(My_addr) - 1)
  '따라서 문자열 마지막부분의 , 는 삭제해줘야겠구요...
  
  Range(My_addr).Select
End Sub
 
[불량 게시물 신고]  
복대리감사합니다.제가 무슨일을 하고싶은지 꿰뚫고 계시는 군요. ^^ 답변이 거의 저랑 대화를 하시분처럼.....

그리고 황기성님도 감사합니다. 

참 specialcells(xlcelltypeconstants,23) 에서 23이란 value는 무엇을 의미하죠. address(0,0)은 절대주소 상대주소를 나타내는것 같구요..

도움말을 찾아도 내용이 없네요. 간단히 답변좀...
09-09 (08:29)
삭제 ■신고
놀란토끼헉 SpecialCells(xlCellTypeConstants, 23)
이거 제가 적은거 아녀요~~ 컴터가 그랬어요...

단지 이동-옵션-상수를 체크하는 행위를 매크로기록기로 기록한죄밖에 없는뎅^^
09-09 (14:45)
삭제 ■신고
        
  

작성일 : 2003-09-08(23:42)
최종수정일 : 2003-09-08(23:42)
 


 ◎ 관련글

  제 목   작성자   날짜
a1, b2, c3를 동시에 range로 select 하는 방법에 대해서 복대리 2003-09-08
[RE]다중영역을 select 하는 방법에 대해서 놀란토끼 2003-09-08