VBA 마지막으로 사용한 셀을 제외한 각 행의 모든 ​​셀을 삭제하십시오.

Question

마지막으로 사용한 셀을 제외한 행의 모든 ​​셀을 삭제하는 스크립트를 작성한 다음 나머지 모든 데이터를 첫 번째 열로 이동하십시오.

은 아래를 참조하십시오 : 당신을 가정

|--| is an empty cell 
|XX| is a cell with unneeded data 
|DATA| is the cell with Data I require. 

Before: 
|--|--|--|XX|XX|XX|XX|DATA| 
|--|--|XX|XX|XX|DATA| 

After 
|DATA| 
|DATA| 

Answer 1

Excel에서 의미 :

프로세스 :

• 루프 시트를 통해

• 가 tempVal

컬럼 (A)의 값을 설정 각 셀을 삭제, 즉 행의 마지막 열 열 내지 lastColumn

루프의 값으로 tempVal 변수를 설정

테스트 대상 :

Sub GetLastColumnValue() 

Dim lastRow As Long 
Dim lastCol As Long 
Dim sheet As String 
Dim tempVal As String 

sheet = "Sheet1" 
lastRow = Sheets(sheet).Range("A" & Rows.Count).End(xlUp).row 'Using Range() 

    For lRow = 2 To lastRow 

     lastCol = Sheets(sheet).Cells(lRow, Columns.Count).End(xlToLeft).Column 
     tempVal = Sheets(sheet).Cells(lRow, lastCol).Text 

     For lCol = 1 To lastCol 
      Sheets(sheet).Cells(lRow, lCol).ClearContents 
     Next lCol 

     Sheets(sheet).Cells(lRow, 1) = tempVal 

    Next lRow 

End Sub