特定のセルの値が空白でない場合は、行全体を別のワークシートにカットアンドペーストします。

Question

私はExcelマクロの初心者です。私はいくつかのレコードマクロ機能を使用して、ビットなどを微調整しました。

今回はゼロから始めなければなりません。 与えられたセルの値が空白でない場合は、行全体をカットアンドペーストして別のワークシートに貼り付け、変更を保存します。

このマクロを構築してもらえますか？ 私はこのための処理時間が非常に短く、すでに頭痛があります。私は学習に熱心ですが、私は基本が欠けています。私はすぐに授業を取る予定です。

お手数ですがありがとうございました！大変感謝しています:) Mike

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