在列中搜索1，然后将整个行粘贴到另一个工作表中？
用户名
我正在为陷入循环中的一些代码而苦苦挣扎。我正在尝试获取代码以复制BD列中的值为1的任何行，并将该整行的值粘贴到另一个工作表中的下一个空行中。我正在使用的代码如下
Sub FindIssues()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
Sheets("Macro Worksheet").Select
If Range("BD" & i).Value = "1" Then Rows(i).Select
Selection.Copy
Sheets("Macro Worksheet 2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Macro Worksheet").Select
Next i
End Sub
谢谢你的帮助
用户名
宏工作表
Option Explicit
Sub CopyEntireRow()
Application.ScreenUpdating = False
Dim src As Worksheet
Set src = Sheets("Macro Worksheet")
Dim trgt As Worksheet
Set trgt = Sheets("Macro Worksheet 2")
Dim i As Long
For i = 1 To src.Range("A" & Rows.Count).End(xlUp).Row
If src.Range("A" & i) = 1 Then
' calling the copy paste procedure
CopyPaste src, i, trgt
End If
Next i
Application.ScreenUpdating = True
End Sub
' this sub copoes and pastes the entire row into a different sheet
' below the last used row
Private Sub CopyPaste(ByRef src As Worksheet, ByVal i As Long, ByRef trgt As Worksheet)
src.Activate
src.Rows(i & ":" & i).Copy
trgt.Activate
Dim nxtRow As Long
nxtRow = trgt.Range("A" & Rows.Count).End(xlUp).Row + 1
trgt.Rows(nxtRow & ":" & nxtRow).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
宏工作表2
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
VBA循环将值粘贴到另一个工作表中
- 2
将具有一个工作表中的值的动态变量列复制并粘贴到另一个工作表中
- 3
从一个df提取列的子集，然后从另一个df粘贴到行中
- 4
Excel：创建一个宏以将活动选择复制并粘贴到另一个工作表中
- 5
将数据从多个工作簿的最后一行复制并粘贴到另一个工作簿中的工作表
- 6
VBA-如何将列中的最后一个值复制并粘贴到另一个工作表
- 7
复制列中的特定单元格并粘贴到另一个工作表中
- 8
Excel-复制选定的单元格并粘贴到另一个工作表中列的末尾
- 9
复制特定单元格并粘贴到另一个工作表中
- 10
VBA 复制范围值并粘贴到另一个工作表中
- 11
比较值并将相应的值粘贴到另一个工作表中
- 12
Google表格+ Apps脚本，从一个工作表复制/粘贴到另一个工作表，但粘贴到特定列（B）中的第一个空单元格中
- 13
如何将一个工作表中的数据粘贴到另一个工作表的更改数据下？
- 14
清除 VBA 中另一个工作表中的过滤器后，将数据复制并粘贴到新工作表中
- 15
从一个工作表中复制数据并粘贴到另一工作表中的相关行上
- 16
在不使用选择/激活的情况下，将工作表名称复制并粘贴到另一个不活动的工作表中
- 17
在不使用选择/激活的情况下，将工作表名称复制并粘贴到另一个不活动的工作表中
- 18
将公式复制到另一个工作表并将其作为值粘贴到特定列
- 19
检查行条件以从 1 个工作簿复制并粘贴到另一个
- 20
将具有公式的范围复制/粘贴到另一个工作表
- 21
通过 VBA 将值复制并粘贴到另一个工作表
- 22
如何过滤表格并将值粘贴到 Excel VBA 中的另一个工作表中
- 23
在一个工作表中复制一行并粘贴在另一个工作表中
- 24
VBA将存储在字典中的单元格粘贴到另一个工作表中的单元格
- 25
VBA将存储在字典中的单元格粘贴到另一个工作表中的单元格
- 26
复制 M 列中以“xx”开头的单元格并将它们粘贴到另一个工作表中
- 27
将一系列单元格剪切/粘贴到另一个工作表中并发送电子邮件
- 28
如何解析然后粘贴到另一个文件中
- 29
从一张工作表中复制和转置数据并创建一个新工作表，然后将数据粘贴到新工作表中
我来说两句