Question

必须将数据从一个工作表复制到另一工作表，条件是其值小于100倍。请任何人帮忙。

编辑：粘贴在下面的代码：

Sub Copycmd()

Dim sht As WorkSheet
Dim myRow As Range a=worksheets("sheet1").cells(Rows.count,1).End(xlUp).Row
Set sht = worksheets("Sheet1")

For I=2 to a
    If Application.Countif(sht.Columns(3), _ sht.Cells(I,2).Value) <100 Then
       Set myRow = sht.Rows(I) MyRow.copy 
       Worksheets("Sheet2").Activate         
       B=worksheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Row  
       Worksheets("Sheet2").Cells(b+1,1).select 
       Activesheet.paste 
       Worksheets("sheet1").Activate 
    End If 
Next I 

Application.cutcopyMode = False 
ThisWorkbook.Worksheets("Sheet1").Cells(1,1).select

End Sub

if语句中的错误

Answer 1

让我尝试以下答案：

char

此代码会对您进行计数，然后相应地将其粘贴到第二张工作表的最后一行之后。请告诉我是否缺少smth，或者如果可以的话，请确认为答案：）

ExcelVBA从一张纸复制数据

1 个答案: