错误的数据被复制到另一张纸上
南特
我要根据B中是否有单词从两列A和B复制一些数据，PRNA然后将A和B复制到“ Sheet1”中。我现在面临的问题是，它复制了所有具有的内容，PRNA但有时也会复制它Not available。这是代码：
Dim Cell2 As Range, LastRow2 As Long
Dim count As Integer
LastRow2 = Cells(Rows.count, "B").End(xlUp).Row
Set rng3 = Range("B2:B" & LastRow2)
Set ws = Sheets("Sheet1")
For Each Cell2 In rng3
If Cell2.Value = "PRNA" Then
'Range(Cells(rng3.Row, 1), Cells(rng3.Row, 2)).Copy
'Range("A1").Offset(count, 0).PasteSpecial
Range(Cells(Cell2.Row, 1), Cells(Cell2.Row, 2)).Copy Destination:=ws.Range("A1").Offset(count, 0)
count = count + 1
End If
Next Cell2
所以我只复制PRNA单元格B旁边的单元格A，其中有个PRNA。
这是输出：
我不知道这里的问题是什么..也许循环太快了吗？
斯科特·克莱纳（Scott Craner）
这将起作用：
Sub copyPRNA()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As Range
Dim cell2 As Range
Dim cnt As Long
Set ows = ActiveSheet
Set tws = Sheets("Sheet1")
Set rng = ows.Range(ows.Range("B2"), ows.Range("B" & ows.Rows.Count).End(xlUp))
For Each cell2 In rng
If cell2 = "PRNA" Then
tws.Range("A" & tws.Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = ows.Range(cell2.Offset(, -1), cell2).Value
End If
Next cell2
End Sub
在使用范围和单元格时，请始终使父级合格。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
将范围复制到另一张纸上
- 2
将1列经过过滤的数据复制到另一张纸上
- 3
查找具有特定标题的数据，并将整列复制到另一张纸上
- 4
将满足条件的特定行复制到另一张纸上
- 5
寻找价值并将整行复制到另一张纸上
- 6
在特定行上搜索值，将整列复制到另一张纸上
- 7
将一张纸上的可变范围复制到另一张纸上的下一个空行
- 8
VBA将数据从一张纸复制到另一张纸
- 9
将数据从一张纸复制到另一张纸的问题
- 10
VBA - 将数据从一张纸复制到另一张纸
- 11
将单元格复制到另一张纸上，并自动填充复制的单元格10次
- 12
如何有条件地将一行复制到另一张纸上？
- 13
我想使用VBA将包含特定文本的特定行复制到另一张纸上
- 14
将包含特定单词的单元格复制到另一张纸上的单元格
- 15
使用VBA，将所有公式从一张纸复制到另一张纸上，而没有其他内容？
- 16
使用UserForm中的数据将值从一张纸复制到另一张纸
- 17
使用VBA将数据从一张纸复制到另一张纸时出错
- 18
如果符合条件（相对行），则将数据从一张纸复制到另一张纸
- 19
Excel根据条件将数据从一张纸复制到另一张纸
- 20
如果满足条件，则将数据从一张纸复制到另一张纸
- 21
如何分离列数据以从一张表复制到另一张表？
- 22
SQL Server 将随机数据从一张表复制到另一张表
- 23
根据名称和日期将数据从一张纸复制到另一张纸
- 24
如何将数据从一张excel表复制到另一张excel表？
- 25
使用 vba 以相反的顺序将数据从一张纸复制到另一张纸
- 26
如何将图片数据从一张图片复制到另一张图片？
- 27
使用VBA将过滤的数据复制到另一张工作表
- 28
VBA：将数据段复制到另一张工作表上
- 29
将列从一张纸复制到另一张工作簿
我来说两句