请帮忙看一下这个宏应该怎么做，已经思索多天

289425412

在当前表格内，搜索J8：J10内容，搜索到后复制该列到另外一个excel表格内，对应的J8：J10内容列，粘贴，

289425412

复制跟J8：J10内容相同列，到另外一个表内跟J8：J10内容相同的列，求大侠帮忙写一下，或提供一下应该怎么写，初学，理不清关系

289425412

已按自己的思路做出VBA，请大家帮忙看看能不能精简
Sub test()
    For i = 1 To 10
    If Cells(2, i) = Cells(8, 10) Then
       If Cells(3, i) = Cells(9, 10) Then
          If Cells(4, i) = Cells(10, 10) Then
          Range(Cells(2, i), Cells(27, i)).Select
          Selection.Copy
          End If
       End If
    End If
Next


  Workbooks.Open "D:/液体月报数据.xlsx"
For j = 1 To 10000
    If Cells(1, j) = Cells(29, 3) Then
       If Cells(2, j) = Cells(30, 3) Then
          If Cells(3, j) = Cells(31, 3) Then
          Range(Cells(1, j), Cells(26, j)).Select
                End If
             End If
            End If
        Next
    Selection.PasteSpecial
ActiveWorkbook.Close True
End Sub

Simon廉

用手机看不见附件。
不过这个程序应该没问题，数据量不大的话可以。
数据量大的话改成数组。
因为判断条件只有三个，我觉得没有改的必要。
如果判断条件多的话，可以写复杂点，提高效率。

Simon廉

workbooks.open下面一行加
sheets("工作表的名字").active
避免打开的工作表不是你要的那个界面

yanghaipingabc

289425412 发表于 2018-2-11 10:58
已按自己的思路做出VBA，请大家帮忙看看能不能精简
Sub test()
    For i = 1 To 10

编的不错。