[已解决]我是个菜鸟，我写的究竟是哪错了？？

wshnyy

sub test()
dim i,j AS long
For j=6 to 10
i=j-4
worksheets("sheeti").range("B2:B3").Value=worksheets("sheet2").range("Gj:Kj").value
next
End sub

大侠们， 帮帮忙。 看我写的这个小小的程序错在哪？我是个菜鸟.......

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-20 11:44

1. Sub test()
   
2.     Dim i, j As Long
   
3.     For j = 6 To 10
   
4.         i = j - 4
   
5.         Worksheets("Sheet" & i).Range("B2:B3").Value = Worksheets("Sheet2").Range("G " & j & ":K" & j).Value
   
6.         '第二种写法
   
7.         'Worksheets(i).Range("B2:B3").Value = Worksheets("Sheet2").Range("G " & j & ":K" & j).Value
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     Dim i, j As Long
   
3.     For j = 6 To 10
   
4.         i = j - 4
   
5.         Worksheets("Sheet" & i).Range("B2:B3").Value = Worksheets("Sheet2").Range("G " & j & ":K" & j).Value
   
6.         '第二种写法
   
7.         'Worksheets(i).Range("B2:B3").Value = Worksheets("Sheet2").Range("G " & j & ":K" & j).Value
   
8.     Next
   
9. End Sub

复制代码

hwc2ycy

变量是变量，字符串是字符串。

wshnyy

万分感谢hwc2ycy！！

还有个问题。 sub dataautofilter()
               worksheets("sheet1") .range("A23").autofilter  field:=1, criterial:= "service"
                 end sub
这个是excel 2003 版的。
请问，2007 版的该怎样写？

非常感谢

wshnyy

hwc2ycy 发表于 2012-11-20 11:44 重新

重新运行程序。 好用。谢谢

hwc2ycy

你在07里运行，有问题再说。

hwc2ycy

你得看你的筛选区域是不是对的。

1. Sub dataautofilter()
   
2.     Worksheets("Sheet1").Range("A23").CurrentRegion.AutoFilter field:=1, Criteria1:="service"
   
3. End Sub
   

复制代码