Excel VBA复制线宏从行到范围-Java 学习之路

-1

我当前的VBA代码从一个工作表中提取并根据条件将数据拆分为2（A列中的值为什么）它根据我当前的代码复制整行 .

更新代码：

Sub discoCopydata()
'DEFINES THE SHEETS AND THE RANGE USED FOR THE COPY PROCESS
Dim dataSource As Worksheet: Set dataSource = ThisWorkbook.Sheets("Miscellaneous   Holds")
Dim dataTargetA As Worksheet: Set dataTargetA = ThisWorkbook.Sheets("CDN")
Dim dataTargetB As Worksheet: Set dataTargetB = ThisWorkbook.Sheets("US")
Dim dataSourceRange As Range: Set dataSourceRange = dataSource _
.Range("A1:A" & dataSource.Cells(dataSource.Rows.Count, "A").End(xlUp).row)

' LOOP CAN BE ADJUSTED TO MULTIPLE CONDITIONS
For Each Cell In dataSourceRange
    'IS THE DATA FOR CAN?
    If Cell.Value = "CAN" = True Then
        dataTargetA.Range("A" & Rows.Count).End(xlUp).Offset(1).EntireRow.Value _
        = Cell.EntireRow.Value
    'IS THIS US DATA?
    ElseIf Cell.Value = "US" Then
        dataTargetB.Range("A" & Rows.Count).End(xlUp).Offset(1).EntireRow.Value _
        = Cell.EntireRow.Value
    End If
Next

End Sub我需要做的是将其限制在范围I.E.从A5：K1000，因为这是我导入的数据的大小 . 我可以在我的代码范围内做到这一点 . 我可以将 Cell.EntireRow.Value 切换到 Cell.Range.Value ，这应该在正确的单元格范围内粘贴数据吗？

1 回答

尝试：

If Cell.Value = "CAN" = True Then
    dataTargetA.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1,11).Value _
    = Cell.Resize(1, 11).Value

回复于 2024-05-18T22:25:12+08:00

Excel VBA复制线宏从行到范围

1 回答

相关问题