VBA XLUP | Excel에서 VBA XLUP를 사용하는 방법? (예제 포함)

Excel VBA XLUP

VBA 코드를 작성하는 동안 명심해야 할 한 가지는 일반 워크 시트로 수행하는 작업이며 VBA에서도 동일한 작업을 복제 할 수 있다는 것입니다. VBA 코딩에서 이러한 키워드 중 하나는 "XLUP"입니다.이 기사에서는이 키워드가 VBA 코딩에서 무엇이며 코딩에서 사용하는 방법을 보여줍니다.

코딩에서 VBA XLUP를 사용하는 방법?

다음은 Excel VBA XLUP의 예입니다.

이 VBA XLUP Excel 템플릿은 여기에서 다운로드 할 수 있습니다 – VBA XLUP Excel 템플릿

예제 # 1 – 셀을 삭제 된 셀 위치로 이동

예를 들어, 색상이 지정된 셀 데이터를 삭제해야하는 아래 데이터의 시나리오를 살펴보고 위의 데이터에 대해 아래 행 데이터를 더 많이 삭제해야합니다.

워크 시트에서 이것을 삭제하는 한 가지 방법은 전체 행 자체를 간단히 삭제할 수있는 셀을 선택하는 것입니다. 그러나 여기 상황은 약간 까다 롭습니다. 왜냐하면 표 2 행도 삭제 되어도 전체 행을 삭제할 때 표 1에 색상이 지정된 셀이 있기 때문에 이러한 상황이 발생하지 않도록 대신 색상이 지정된 행을 삭제하고 아래의 셀을 이동해야합니다 삭제 된 셀의 위치를 ​​올립니다.

먼저 색상이 지정된 셀을 선택하고 Ctrl + 빼기 기호 (-) 를 눌러 "삭제"옵션을 엽니 다.

"삭제"옵션을 여는 바로 가기 키

"삭제"옵션 창에는 네 가지 옵션이 있으며 요구 사항에 따라 작업을 선택할 수 있습니다. 삭제 된 셀 위치에 대해 셀을 위로 이동해야하므로 "Shift Cell Up"을 선택합니다.

표 2 행은 변경되지 않습니다.

VBA에서이 작업을 수행하려면 "XLUP"속성을 사용하여 VBA에서 유사한 작업 집합을 수행해야합니다. 이제 VBA 편집기 창으로 와서 매크로 이름을 시작하십시오.

암호:

 Sub XLUP_Example () End Sub 

먼저이 작업에 포함될 셀 RANGE를 제공합니다. 이 동작에서 삭제하고 위로 이동할 첫 번째 셀은 "A5 : B5"셀입니다.

암호:

 Sub XLUP_Example () 범위 ( "A5 : B5") End Sub 

이 셀 범위에 대해 "삭제"방법을 선택합니다.

암호:

 Sub XLUP_Example () Range ( "A5 : B5"). Delete End Sub 

"Delete"메서드에서 볼 수 있듯이 [Shift]와 같은 선택적 인수가 하나 있습니다. 이 인수에 대해 "XLUP"으로 인수를 입력해야합니다.

암호:

 Sub XLUP_Example () Range ( "A5 : B5"). Delete shift : = xlUp End Sub 

이제이 코드를 수동으로 실행하거나 바로 가기 엑셀 키 F5를 통해 결과를 볼 수 있습니다.

표 1에서 볼 수 있듯이 6 번 행은 5 번째 행으로 이동하고 반면에 Table 2 행 (색상)은 변경되지 않았으므로 "VBA XLUP"옵션을 사용하여이 작업을 수행 할 수 있습니다.

예제 # 2 – XLUP을 사용하여 마지막으로 사용 된 행 찾기

A20 번째 셀 (아래 이미지 참조)에 있고 마지막으로 사용한 셀이 A14 인 상황을 상상해보십시오.

이제 마지막으로 사용한 셀 (A14)을 선택하려는 경우. 바로 가기 키를 사용하여 어떻게 하시겠습니까 ???

우리는 사용하는 것이 Ctrl 키 + 위쪽 화살표 현재 위치에서 마지막으로 사용한 셀에 이동 키를 누릅니다.

마지막으로 사용한 셀로 이동하는 바로 가기 키 

따라서 현재 셀에서 Ctrl + 위쪽 화살표는 마지막으로 사용한 셀을 선택했습니다. 마찬가지로 VBA 코딩에서는 END (XLUP) 를 사용하여 동일한 작업을 수행합니다.

이제 VBA 코딩 창으로 돌아갑니다.

이 창에서는 워크 시트에서 마지막으로 사용 된 행을 찾는 작업을 수행합니다. VBA 창에서 새 하위 절차를 만듭니다.

암호:

 Sub XLUP_Example1 () End Sub 

마지막으로 사용 된 행 번호를 저장합니다. 변수를 VBA LONG 데이터 유형으로 정의하십시오.

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long End Sub 

이제이 변수에 대해 마지막으로 사용 된 행 번호를 할당합니다.

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long Last_Row_Number = End Sub 

이제 RANGE 개체를 사용하고이 개체를 엽니 다.

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long Last_Row_Number = Range (End Sub 

이제 RANGE 개체에 대해 활성 셀 (A20)을 언급 합니다.

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long Range ( "A14"). Select Last_Row_Number = Range ( "A20") End Sub 

이제 제공된 범위 셀에 대한 END 속성을 엽니 다.

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long Range ( "A14"). Select Last_Row_Number = Range ( "A20"). End (End Sub 

위에서 볼 수 있듯이 "xlDown", "xlToLeft", "xlToRight", "xlUp"과 같은 화살표 키 옵션이 필요합니다. A14 셀에서 위로 이동하고 있으므로 "VBA XLUP"옵션을 선택합니다.

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long Range ( "A14"). Select Last_Row_Number = Range ( "A20"). End (xlUp) End Sub 

A14 셀에서 위로 이동 한 후 마지막으로 사용 된 행 번호가 필요하므로해야 할 일을 언급해야합니다. ROW 속성을 사용할 것입니다.

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long Range ( "A14"). Select Last_Row_Number = Range ( "A20"). End (xlUp) .Row End Sub 

이제 메시지 상자에 “Last_Row_Number” 변수 값을 할당합니다 .

암호:

 Sub XLUP_Example1 () Dim Last_Row_Number As Long Range ( "A14"). Select Last_Row_Number = Range ( "A20"). End (xlUp) .Row MsgBox Last_Row_Number End Sub 

이제이 코드를 수동으로 실행하거나 단축키 F5를 통해 결과를 확인할 수 있습니다.

따라서 마지막으로 사용한 행 번호를 14로 표시하는 메시지 상자이므로 마지막으로 사용한 행 번호는 A14 셀입니다.

이 경우 데이터가 매우 작기 때문에 A20 셀부터 시작했지만 데이터가 크면 먼저 고려할 셀을 말할 수 없으므로 다른 기법을 사용해야합니다.

CELLS 속성을 사용해야합니다. 아래는 동일한 예입니다.

암호:

 Sub XLUP_Example2 () Dim Last_Row_Number As Long Last_Row_Number = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox Last_Row_Number End Sub 

이제이 코드를 수동으로 실행하거나 단축키 F5를 통해 결과를 확인할 수 있습니다.

RANGE 개체 대신 CELLS 속성을 사용했습니다. 이것을 자세히 설명하겠습니다.

ROW.COUNT 이것은 열 1 에 얼마나 많은 행이 있는지 계산합니다 . 이것은 임의의 셀 주소 대신 워크 시트의 마지막 셀을 고려하는 것입니다. 위의 경우 A14를 임의의 셀로 사용했습니다. 주소.

VBA XLUP에 대해 기억해야 할 사항

  • XLUP는 Excel에서 "위쪽 화살표"키의 동작을 복제하기 위해 VBA 코드에서 사용되는 단어입니다.
  • VBA XLUP은 활성 셀에서 위의 셀 또는 마지막으로 사용한 셀로 이동하는 데 사용됩니다.
  • XLUP은 일반적으로 VBA에서 END 속성과 함께 사용됩니다.