두 열 사이의 강조 표시는

Question

입니다. 1) "QTR"이라는 단어를 찾고 다음이 activecell.column을 변수로 설정하려고합니다 ... 2) 그럼 Ctrl + 오른쪽 3)이 값을 설정하십시오 activecell.column을 변수로 변환합니다. 이 두 열 사이의 모든 열을 선택해야합니다.

Sub Column() 

    Dim cs As Range 'column start 
    Dim cst As Range ' column end 

    'Find 'QTR' 

    Cells.Find(What:="QTR", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
      xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
      , SearchFormat:=False).Activate 
    Set cs = ActiveCell.EntireColumn 

    'CTRL + Right Arrow 
    Selection.End(xlToRight).Select 

    Set cst = ActiveCell.EntireColumn 

'highlight all columns from cs column to cst column 
    Range(cs & cst).Select 



    End Sub 

오류가 발생했습니다. 누군가가

Answer 1

이

Sub Column() 

Dim cs As Integer 'column start 
Dim cst As Integer ' column end 

'Find 'QTR' 

Cells.Find(What:="QTR", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
     , SearchFormat:=False).Activate 

cs = ActiveCell.Column 

'CTRL + Right Arrow 
Selection.End(xlToRight).Select 

cst = ActiveCell.Column 


Range(Cells.Columns(cs), Cells.Columns(cst)).Select 




End Sub 

을 밖으로 일을 도울 수 바랍니다