Question

我想将一些excel文件中的某些列复制到另一个。基本上我想搜索“职业”，然后是IF句子，只复制那一列（“职业”），如果工资高于100,000。当然在真实文件中我不知道哪个列包含“Occupation”。

Sub FindMelData() 
Dim MEL As Workbook 
Dim FinalRow As Integer 
Dim i As Integer 
Sheets("MEL-Input").Activate 
Sheets("MEL-Input").Range("A1:BJ3000").ClearContents 
iName = Cells(1, 1) 
iOccup = Cells(1, 2) 
iSalery = Cells(, 3) 

Set MEL = Workbook.Open("path") 
area = MEL.Sheets("MEL").Range("A1").Value 
FinalRow = Range("A" & Rows.Count).End(xlUp).Row 
For i = 2 To FinalRow 
   If Cells(i, 3) > 100000 Then 
      MEL.Sheets("MEL").Range(Cells(i, 2)).Copy 
      ThisWorkbook.Sheets("MEL-Input").Range("A3000").End(xlUp).O‌ffset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats 
      End If 
      Next i 
End Sub

所以我希望在我的新文件中显示的是：

[！[在此处输入图像说明] [2]] [2]

我对如何开始这个没有好主意，所以到目前为止我刚刚创建了一个循环，找到了我要复制的文件中的列号。这是有效的，但是如果要更改列，那么我的脚本将不再工作了。

enter image description here

根据列值复制行

0 个答案: