使用VBA代码在工作簿中的工作表中复制和粘贴

尝试在VBA for Excel中编写宏以查看列表中每行数据的某个列中的值，并且如果该值为“是”，那么它将整行复制并粘贴到同一工作簿中的不同工作表上。我们来命名两张表“数据”和“最终”。我想要引用工作表，因此在运行代码时打开哪张工作表并不重要。我打算使用Do循环来循环查看一个数据表中的行，直到找到没有更多的条目和if语句来检查这些值。使用VBA代码在工作簿中的工作表中复制和粘贴

我对如何从一张纸切换到下一张感到困惑。

如何特别参考不同工作表中的单元格？

这里是伪代码我脑子里想的：

Do while DataCells(x,1).Value <> " " 
    for each DataCells(x,1).Value="NO" 
     if DataCells(x,2).Value > DataCells(x,3).Value or _ 
     DataCells(x,4).Value < DataCells(x,5).Value 
      'Copy and paste/insert row x from Data to Final sheet adding a new 
      'row for each qualifying row 
     else 
      x=x+1 
     end 
    else if DataCells(x,1).Value="YES" 
Loop 
'copy and paste entire row to a third sheet 
'continue this cycle until all rows in the data sheet are examined

来源

2013-06-28 Hannah

你需要更清楚地格式化代码;就像现在这样，由于缺少行或缩进，代码不可读。 – LittleBobbyTables

请使用搜索功能。 – user2140261

Sub FilterAndCopy() 

Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.Calculation = xlCalculationManual 

Dim sh As Worksheet, sh2 As Worksheet 
Dim lastrow1 As Long 
Dim lastcolumn1 As Long 



Set sh = ThisWorkbook.Sheets("Data") 
Set sh2 = ThisWorkbook.Sheets("Final") 

lastrow1 = sh.Cells(Rows.Count, "A").End(xlUp).Row ' Replace "A" With column that has the most Rows 
lastcolumn1 = sh.Cells(1, Columns.Count).End(xlToLeft).Column 

With sh.Range(.Cells(1, 1), .Cells(lastrow1, lastcolumn1)) 

'Replace the number in the field section with your Columns number 
    .AutoFilter , _ 
     Field:=1, _ 
     Criteria1:="yes" 

    .Copy sh2.Range("A1") 

End With 

Application.ScreenUpdating = True 
Application.EnableEvents = True 
Application.Calculation = xlCalculationAutomatic 

End Sub

来源

2013-06-28 15:23:55 user2140261

使用VBA代码在工作簿中的工作表中复制和粘贴

回答

相关问题