Question

我正在尝试使用宏来复制依赖于某些条件的行，在本例中为＃34; FX Ccy选项＆＃34;，对于使用列M的数据表。我已经通过以下方式对此进行了管理代码，但我不想复制整行（c.EntireRow.copy）。仅适用于所有带数据的列（C：X）。

Sub Button2_Click()

    Dim bottomL As Integer
    bottomL = Sheets("DGM").Range("M" & Rows.Count).End(xlUp).Row: x = 1

    Dim c As Range
    For Each c In Sheets("DGM").Range("M1:M" & bottomL)
        If c.Value = "FX Ccy Options" Then
            c.EntireRow.Copy Worksheets("sheet2").Range("A" & x + 1)
            x = x + 1
        End If
    Next c


End Sub

Answer 1

c.EntireRow.Range("C1:X1").Copy

这里“C1：X1”是指定行的相对。

类似地

someRectangularRange.Range("A1")

是someRectangularRange

中的左上角单元格

将特定行（不是整行）的特定列复制到另一个工作表 - Excel宏

1 个答案: