[已解决]这代码错在哪？？

fangniuji

• Sub 按钮1_Click()
  
• Dim row&, Row1&
  
• Row1 = Sheet7.Cells(Rows.Count, 3).End(3).row
  
• With Sheet1
  
•     row = .Cells(Rows.Count, 2).End(3).row
  
•     .Cells(1, 3).Resize(row, 1).Value = "=IFERROR(VLOOKUP(B1,整理!C2:AN&""" & Row1 & """,38,FALSE),B1)"
  
•     .Cells(1, 3).Resize(row, 1).Value = .Cells(1, 3).Resize(row, 1).Value
  
• End With
  
• End Sub
  
  

最佳答案

月排行榜 / 总排行榜

lisachen

2012-4-13 23:15

1. Sub 按钮1_Click()
   
2. Dim row&, Row1&
   
3. Row1 = Sheet7.Cells(Rows.Count, 3).End(3).row
   
4. With Sheet1
   
5.     row = .Cells(Rows.Count, 2).End(3).row
   
6.     .Cells(1, 3).Resize(row, 1).Value = "=IFERROR(VLOOKUP(B1,整理!C$2:AN" & Row1 & ",38,FALSE),B1)"
   
7.     .Cells(1, 3).Resize(row, 1).Value = .Cells(1, 3).Resize(row, 1).Value
   
8. End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

chrissha

我版本2003，开不了你的文件，不好意思帮你测试不了，不过，建议你一下：
Dim row&, 这个，你将ROW这个变量换一换，应该不能用ROW，就象你变量不能用RANGE一样

fangniuji

Sub 按钮1_Click()
Dim row&, Row1&
Row1 = Sheet7.Cells(Rows.Count, 3).End(3).row
With Sheet1
    row = .Cells(Rows.Count, 2).End(3).row
    .Cells(1, 3).Resize(row, 1).Value = "=IFERROR(VLOOKUP(RC[-1],整理!C:C[37],38,FALSE),RC[-1])"
    .Cells(1, 3).Resize(row, 1).Value = .Cells(1, 3).Resize(row, 1).Value
End With
End Sub

fangniuji

chrissha 发表于 2012-4-13 22:56
我版本2003，开不了你的文件，不好意思帮你测试不了，不过，建议你一下：
Dim row&, 这个，你将ROW这个变量 ...

谢谢你的帮忙，谢谢！！！

lisachen

1. Sub 按钮1_Click()
   
2. Dim row&, Row1&
   
3. Row1 = Sheet7.Cells(Rows.Count, 3).End(3).row
   
4. With Sheet1
   
5.     row = .Cells(Rows.Count, 2).End(3).row
   
6.     .Cells(1, 3).Resize(row, 1).Value = "=IFERROR(VLOOKUP(B1,整理!C$2:AN" & Row1 & ",38,FALSE),B1)"
   
7.     .Cells(1, 3).Resize(row, 1).Value = .Cells(1, 3).Resize(row, 1).Value
   
8. End With
   
9. End Sub

复制代码