求帮忙修改VBA代码

ht094156

代码如下：
Sub xxx()
Application.Calculation = xlCalculationManual
Sheets("数据提取").Range("C2:L10000").ClearContents
Dim i As Worksheet
  For Each i In ThisWorkbook.Sheets
   If i.Name <> "中2库存" Or i.Name <> "开工系统数" Or i.Name <> "开工对比" Then
    lr = i.Cells(65536, 3).End(xlUp).Row
      For j = 5 To lr
        If i.Cells(j, "N") <> "√" Then  'M列
         b = Sheets("数据提取").Cells(65536, 3).End(xlUp).Row + 1
         i.Range("C" & j & ":L" & j).Copy Sheets("数据提取").Cells(b, "C")     'C:L列
         Sheets("数据提取").Cells(b, "A") = i.Range("C1")
        End If
      Next
     End If
   Next
   Application.Calculation = xlCalculationAutomatic
End Sub

这个代码已经指定不运行的表格了，但在运行代码时，依然会将整个工作薄都处理，是不是那里不对，帮忙看看？

su45

你的附件中没有下面这句代码提到的表名
If i.Name <> "中2库存" Or i.Name <> "开工系统数" Or i.Name <> "开工对比" Then

su45

你可以把 Or 改为 And 试试！

ht094156

su45 发表于 2014-7-9 12:13
你可以把 Or 改为 And 试试！

换成And真的可以了，如果我想清除读取后的数据，应该怎样改。或者是清除B1：L100？

su45

Range("B1：L100").ClearContents

研究研究

  If i.Name = "中2库存" Or i.Name = "开工系统数" Or i.Name = "开工对比" Then
Else
你的代码
End If