如果源工作表的 B 列中的值大于或等于 10,我正在编写 VBA 代码以将值从一张工作表复制到另一张工作表。我能够将值从源工作表复制到目标工作表。但是,复制的值是错误的。
我尝试更改条件(值大于 10)以查看输出结果。值不符合预期。
Sub findValues()
Dim c As Range
Dim b As Integer
Dim Source As Worksheet
Dim Target
Set Source = ActiveWorkbook.Worksheets("Source2")
Set Target = ActiveWorkbook.Worksheets("Code Trial2")
b = 2
For Each c In Source.Range("B2:B:20")
If c.Value >= 10 Then
Source.Cells(b, "A").Copy
Target.Cells(b, "A").PasteSpecial xlPasteValues
Source.Cells(b, "B").Copy
Target.Cells(b, "B").PasteSpecial xlPasteValues
b = b + 1
End If
Next c
End Sub
源表包含以下内容: Val Number A 1 B 2 C 3 D 10
E 12 F 13
我希望输出为:10、12、13
但是,在目标表中我得到: 1, 2, 3 Actual Output
这应该这样做:
Option Explicit
Sub findValues()
Dim c As Range
Dim b As Integer
Dim Source As Worksheet
Dim Target As Worksheet
Set Source = ActiveWorkbook.Worksheets("Source2")
Set Target = ActiveWorkbook.Worksheets("Code Trial2")
b = 2
For Each c In Source.Range("B2:B20")
If c.Value >= 10 Then
Target.Cells(b, "A").Value = c.Offset(0, -1).Value
Target.Cells(b, "B").Value = c.Value
b = b + 1
End If
Next c
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句