[已解决][求助]vba语句修改？

sgyzzz

本人刚接触VBA，现用IF语句和循环语句写了一段代码，但运行时出错，请帮忙修改一下。

Sub 导入()
Dim i, m, k As Integer
For i = 1 To 8
k = 252 * (i - 1) + 2

If i < 5 Then
m = 2 * i + 4
Else
m = 2 * i + 5
Next i
End If
 Sheets("总课表").Select
    Range(Range("c" & m), Range("IT" & m)).Select
    Selection.Copy
    Sheets("课时统计").Select
    Range("h" & k).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
  
    Sheets("课时统计").Select
    Range("b2").Select
End Sub

最佳答案

月排行榜 / 总排行榜

雨狐

2009-9-10 15:55

Dim i, m, k As Integer最好写成

dim i%,M%,K%

或

dim i as interger,m as interger,K as interger

我接着看.....

跳转到最佳答案楼层

雨狐

  Next i 可能要调到最后

[此贴子已经被作者于2009-9-10 15:57:22编辑过]

cjainwei

没附件,看代码好晕

雨狐

Dim i, m, k As Integer最好写成

dim i%,M%,K%

或

dim i as interger,m as interger,K as interger

我接着看.....

cjainwei

好眼神,

[em07]

sgyzzz

谢谢大家的参与，感谢雨狐的指导。