Excel VBA 코드 - 하나의 열에서 값을 찾고 다음 열에서 데이터 이동

Question

VBA에 대해 조금 익숙하지만 열 E를 검색하고 값 "TRUE"를 찾는 코드를 찾으려고합니다. 각 셀에 대해이 "TRUE"셀의 오른쪽으로 한 셀을 이동하고 한 셀을 잘라내어 오른쪽에 붙여 넣습니다.

나는 하루 종일 검색 중이며 해결책을 찾을 수 없습니다. 미리 감사드립니다. 이 컬럼에 처음 1000 개 행을 검색합니다

는

Answer 1

Dim row 
Dim column 
Dim value 

column = 5 

For row = 1 To 5000 Step 1 
    value = Cells(row, column) 

    If value = "True" Then 
    Cells(row, column+1) = Cells(row, column) 
    Cells(row, column) = "" 
    End If 
Next 

, 해당하는 모든 세포는 분명히 루프 전에 희미한 value, row 및 column을 선언 할 필요가, 오른쪽으로 한 셀을 이동합니다 그것은 수 있도록 원하는 열을 검색하십시오.