如何简写代码？

dzzxlbj

Sub t()
Dim i%, k%
k = 2
For i = 2 To 563
If Sheet2.Range("d" & i) = "1班" Then _
    Sheet1.Range("c" & k) = Sheet2.Range("e" & i): k = k + 1
Next i

End Sub



Sub a()
Dim i%, k%
k = 2
For i = 2 To 563
If Sheet2.Range("d" & i) = "2班" Then _
    Sheet1.Range("d" & k) = Sheet2.Range("f" & i): k = k + 1

Next i

End Sub
如何将上述代码简写啊    太长了  刚接触vba  见笑了

獨一無2

Sub t()
Dim i%, k%,j%
k = 2
j = 2
For i = 2 To 563
If Sheet2.Range("d" & i) = "1班" Then
     Sheet1.Range("c" & k) = Sheet2.Range("e" & i): k = k + 1
ElseIf Sheet2.Range("d" & i) = "2班" Then
    Sheet1.Range("d" & j) = Sheet2.Range("f" & i): j = j + 1
End If
Next i

End Sub
如果是表示某个单元格，最好使用cells()

jiminyanyan

才这么几句，不长呀。。。。。

dzzxlbj

jiminyanyan 发表于 2018-7-15 20:53
才这么几句，不长呀。。。。。

对于我来讲  太长了

Jefforry

你强迫症么？初期学习以代码实用性为主，能用就好。等你有经验之后，自然知道如何简写。否则你会被自己逼疯的。况且，你这代码也不多啊