Question

网站新手;非常感谢你的帮助！

我想有条件地复制＆＃34; sheet1＆＃34;到＆＃34; sheet2＆＃34;。

条件：行中最左边的单元格（列＆＃34; A＆＃34;）具有任何值（数字或文本）。 *我不想复制空白的行。

我想为所有sheet1（特别是A到L列和第10 - 9999行）运行VBA宏。

如果你们需要更多信息，请告诉我们;在此先感谢!!

Answer 1

无需为您编写代码，这将帮助您入门：

    Private Sub Find_Non_Blanks()
    Dim cell As Range, rowOut As Long
    rowOut = 0
    For Each cell In Sheets("Sheet1").Range("A10", "A9999")
        If Not IsEmpty(cell) Then
            rowOut = rowOut + 1
            Debug.Print rowOut & ":", "A" & cell.Row, cell.Value, cell.Formula
        End If
    Next
    Debug.Print "Found " & rowOut & " rows to be copied."
    End Sub

您可以将此代码放在任何工作表，用户表单或模块上。无论当前哪个工作表处于活动状态，或者当前选择的是什么，它都将产生相同的输出。

为了提高速度，可靠性和易维护性，您的VBA应直接在范围内运行，而无需选择或激活它们。换句话说，请尽量不要在VBA代码中使用这些关键字：

      Select, Selection, Activate, ActiveCell

如果最左边的单元格具有任何值，则有条件地将行复制到不同的工作表

1 个答案: