Excel VBA自动化数据处理技巧

在日常工作中，处理大量数据是常有的事。Excel VBA（Visual Basic for Applications）提供了强大的自动化功能，可以大大提高我们的工作效率。本文将通过一个实际案例，展示如何使用VBA来根据特定条件复制和粘贴数据。

背景介绍

假设我们有一个名为"Sheet1"的工作表，包含从A到V的列，其中U列是我们的条件列。我们需要将U列中标记为"Manual"的行从A到P列复制到另一个名为"Sheet2"的工作表中，同时，我们也想将标记为"Auto"的行复制到"Sheet3"。以下是我们将使用的代码示例：

Private Sub CommandButton1_Click() With Sheets("Paste Data") LR = .Cells.Find("*", .Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row For i = 2 To LR If .Range("U" & i).Value = "Manual" Then .Range("A" & i & ":P" & i).Copy Sheets("Sheet2").Range("A" & i) ElseIf .Range("U" & i).Value = "Auto" Then .Range("A" & i & ":P" & i).Copy