excel用VBA实现搜索某些符合条件的行,并复制到另外一个sheet?

我要把符合我的搜索条件的列自动搜索出来,然后复制到另外一个sheet里面,具体如下:
我的搜索条件是:只要D列存在"-101"的字符串且Q列没有输入"OK"就符合条件。条件的语句是:
For i = 1 To 65536
If InStr(Cells(i, 4), "-101") > 0 And LCase(Cells(i, 17)) <> "ok" Then
………
现在要把这些符合条件的i行全部复制到另外一个sheet4里面,应该怎么写呢?谢谢!
不好意思,第一句写错了。。
其实就是把sheet1中符合条件的“行”复制到sheet4中去,不是“列”
sheet1中的条件就是:
InStr(Cells(i, 4), "-101") > 0 And LCase(Cells(i, 17)) <> "ok" Then

Sub tty()
Dim point As Integer
Sheet1.Activate
point = 1
num = ThisWorkbook.ActiveSheet.Range("D65536").End(xlUp).Row
For i = 1 To num
If InStr(Cells(i, 4), "-101") > 0 And LCase(Cells(i, 17)) <> "ok" Then
Cells(i, 4).EntireRow.Select
Selection.Copy
Sheet4.Cells(point, 1).PasteSpecial
point = point + 1
End If
Next i
End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答

excel用VBA实现搜索某些符合条件的行,并复制到另外一个sheet?
Sheet1.Activate point = 1 num = ThisWorkbook.ActiveSheet.Range("D65536").End(xlUp).Row For i = 1 To num If InStr(Cells(i, 4), "-101") > 0 And LCase(Cells(i, 17)) <> "ok" Then Cells(i, 4).EntireRow.Select Selection.Copy Sheet4.Cells(point, 1).PasteSpecial poin...

如何用VBA判断符合条件的数据复制粘贴到相应工作表?
targetSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End If Next i 上述代码中,"需要筛选的条件"可以是一个数字、文本或者其他类型的条件。如果某一行数据的第一列与该条件相等,那么该行数据就符合条件,可以将该行数据复制到目标工作表。在上述代码中,使用了...

如何用VBA去实现EXCEL的表中找到符合条件的单元格,然后再整行复制到...
给你一个工作表事件代码,你可以参考使用:Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False On Error Resume Next Dim a As String, b As String, x As Integer, y As Integer Dim rng As Range y = Sheets(3).[a65536].End(3).Row If Target <>...

如何用VBA判断符合条件的数据复制粘贴到相应工作表?
首先,你需要使用Microsoft.Office.Interop.Excel类库来操作Excel文件。这个类库可以让你在C#中操作Excel文件。其次,你需要使用C#中的循环语句来遍历Excel文件中的所有数据,并且使用if语句来判断符不符合条件。第三,当符合条件时,你需要使用Excel的Range类来复制符合条件的数据,并使用Workbook和Worksheet类来...

excel怎么用vba复制指定列符合条件的单元格及其所在行到另一个工作表...
col="A" '判断条件所在列,可修改为基本列 j=2 for i=2 to cells(65536,col).end(xlup).row if cells(i,col)>100 then '符合条件 Rows(i).copy sheets("另一个工作表名称").cells(j,"A") '整行复制到另一工作表的A列 j=j+1 end if next ...

vb,vbA操作EXCEL怎么把指定数据复制到另一工作表符合条件的相应...
WorksheetFunction.Match([B1], Sheets("基础数据").Range("A:A"), 0)Range("A3:D3").Copy Sheets("基础数据").Cells(X, "a")Sheets("基础数据").SelectSheets("基础数据").Range("a" & X & ":" & "d" & X).Interior.ColorIndex = 3 '修改过的区域填充红色End Sub代码复制到 ...

请问一下EXCEL如何用vba语言把表格满足条件的单元个复制到另外相应的列...
Dim arr(1 To 10) '1 On Error Resume Next 'For d = 1 To 10 ' arr(d) = 0 'Next r = Range("B2").End(xlDown).Row c = Range("B2").End(xlToRight).Column f1 = [o2]f2 = [o3]For i = 2 To c For j = 3 To r - 1 If Cells(j, i) = f1 And Cells(j...

使用VBA, 如何将一个EXCEL文档中某个区域的内容自动复制到另一个EXCEL...
Sub MyCopy()Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")End Sub 意思就是把工作簿1中工作表sheet1的A1:C50区域复制到当前工作簿sheet2工作表的A1区域(这个区域与前面的区域是一样的,只需要写左上角的单元格即可)...

excel vba中 我想要复制一个区域的内容到另外一张表上,但是复制区域的...
Range(Cells(1, 1), Cells(2, i)).Copy Sheets(2).Range("a1")如果要打开Sheets(2)工作表,在最后加上语句:Sheets(2).Activate 用以下语句也可以:Range("a1").Resize(2, i).Copy Sheets(2).Range("a1")说明:Range对象的Resize属性是用于调整指定区域的大小,并返回调整后的单元格区域...

EXCEL用VBA将符合条件的单元格复制到另一个单元格。高手来,在线等
好绕,发表来看看,一定要VBA是么,1052974911@qq.com === 看了会一个简单的公式就搞定了:N4:=index($B$2:$K$2,match(match(B4,$B$3:$K$3,0),$B$3:$K$3,0)))公式右拉,下拉 你只说一行不具有代表性,请解释下N5 的7 是怎么来的 ...

相似回答