小白求指导修改和错误指导

xtdeexcelhome · 发表于 2016-9-27 08:23

N.C有个按钮，提取N.C表数据的，规则是从页签synthese 中的T、U列的颜色判断，如果这两列有任意一列是红色的，这提取Q、R列的数据放在N.C表中的散差，对中列并且需要把N.C页签中的序号、功能、公差列都填上数据

我自己是这么写的有没有大神帮我改下还有老是出现错误，引用中refeditcontrol.dll丢失，第一次当打开的时候引用可以去了，但保存再打开的时候就一直显示错误。

Sub 按钮2_click()
Sheets("sheet3").Select
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
k = 8
For i = 2 To lastrow
Sheets("sheet3").Select

'由于版本限制直接判断条件是否满足>0.66

If Cells(i, 20) > 0.66 Or Cells(i, 21) > 0.66 Then
      Range(Cells(i, 17), Cells(i, 18)).Select
      Selection.Copy
      Sheets("sheet4").Select
      Cells(k, 9).Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False

   '序号

      Cells(k, 3).Select
      ActiveCell.FormulaR1C1 = k - 7

      '功能

      'Sheets("sheet3").Select
      'Cells(i, 1).Select
      'Selection.Copy
      'Sheets("sheet4").Select
      'Cells(k, 5).Select
      'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      ':=False, Transpose:=False
      Sheet4.Cells(k, 5) = Sheet3.Cells(i, 1)

      '公差

      'Sheet4.Cells(k, 8) = Sheet3.Cells(i, 5) & "/" & Sheet3.Cells(i, 6)
      Sheet4.Cells(k, 8) = Format(Sheet3.Cells(i, 5).Value, "0.00") & "/" & Format(Sheet3.Cells(i, 6).Value, "0.00")

      k = k + 1
ActiveCell.Rows("2:2").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End If
Next
End Sub

		自动登录	找回密码
密码			免费注册