주어진 셀의 값이 비어 있지 않으면 전체 행을 잘라내 다른 워크 시트에 붙여 넣으십시오.

Question

초급 Excel 매크로입니다. 나는 레코드 매크로 기능을 사용하여 비트를 조금만 조정하여 약간의 작업을 수행했습니다.

이번에는 처음부터 시작해야하며 분실했습니다.

다음을 완료하는 간단한 방법을 찾고 있습니다. 주어진 셀 (U 셀이라고 가정 해 봅시다)의 값이 비어 있지 않으면 전체 행을 잘라내어 다른 워크 시트에 붙여넣고 변경 사항을 저장하십시오.

이 매크로를 구축하는 데 도움을주십시오. 나는 이것에 대한 처리 시간이 매우 짧으며 나는 이미 두통을 앓고있다. 나는 학습에 열중하지만 기본을 놓치고 있습니다. 나는 곧 수업을 듣겠다.

도움 주셔서 감사합니다. 많이 감사합니다 :) 마이크

Answer 1

시바가 언급했듯이, 이것은 나에게 적합하지 않습니다. 즉, 내가 복사/붙여 넣기를 할 수있는 몇 가지 오래된 코드를 쉽게 얻을 수 있다고합니다. 이것은 시트 1의 데이터 열 U가있는 모든 행을 통해 동적으로 작동합니다.

Sub CutCopyPaste() 
Dim x as Integer 
Dim y As Integer 
Dim i as Integer 

x = Sheets("Sheet1").Range("U" & Rows.Count).End(xlUp).Row 
y = Sheets("Sheet2").Range("U" & Rows.Count).End(xlUp).Row 

For i = 1 to x 
    If Not Range("U" & i).value = "" Then 
     Range("U" & i).EntireRow.Cut Sheets("Sheet2").Range("A" & y) 
     Workbooks("your workbook.xlsm").Save 
     y = y + 1 
    End If 
Next i 
End Sub