合并代码

李桥贵

请老师给予指导

Sub 积分()
a = Sheets("汇总表").Cells(Rows.Count, 2).End(xlUp).Row
  Sheets("汇总表").Cells(5, "E") = 20
   Sheets("汇总表").Cells(5, "F") = 60
  Sheets("汇总表").Cells(5, "G") = 20
Sheets("汇总表").Range("E5:G5").AutoFill Destination:=Sheets("汇总表").Cells(5, "E").Resize(a - 4, 3)
For i = 1 To 5 Step 4
  a1 = Sheets("填").Cells(Rows.Count, i).End(xlUp).Row
   Arr = Sheets("填").Cells(2, i).Resize(a1 - 1, 4)
   For j = 1 To a1 - 1
R名 = Arr(j, 1)
Set m名 = Sheets("汇总表").Cells(5, "B").Resize((Sheets("汇总表").Cells(Rows.Count, 2).End(xlUp).Row), 1).Find(R名, Lookat:=xlWhole)
   If m名 Is Nothing Then GoTo 5
    If Not m名 Is Nothing Then R = m名.Row
'  Sheets("汇").Cells(R, "E").Resize(1, 3) = Arr(j)
Sheets("汇总表").Cells(R, "E") = Arr(j, 2)
Sheets("汇总表").Cells(R, "f") = Arr(j, 3)
Sheets("汇总表").Cells(R, "g") = Arr(j, 4)
5:
  Next
Next
End Sub
能否把以下三句代码合为一句
Sheets("汇总表").Cells(R, "E") = Arr(j, 2)
Sheets("汇总表").Cells(R, "f") = Arr(j, 3)
Sheets("汇总表").Cells(R, "g") = Arr(j, 4)

不知道为什么

李老师，好久不见啊

ww87725244

1、For i = 1 To 5 Step 4   这一句不就是一次吗？个人觉得没有必要循环了吧
2、问题可以这样：Sheets("汇总表").Cells(R, "E").resize(1,3)=array(Arr(j, 2),Arr(j, 3),Arr(j, 4))

lsc900707

for k=2 to 4
Sheets("汇总表").Cells(R, K+3) = Arr(j, K)
next

李桥贵

lsc900707 发表于 2018-10-18 23:26
for k=2 to 4
Sheets("汇总表").Cells(R, K+3) = Arr(j, K)
next

谢谢老师！

李桥贵

ww87725244 发表于 2018-10-18 22:55
1、For i = 1 To 5 Step 4   这一句不就是一次吗？个人觉得没有必要循环了吧
2、问题可以这样：Sheets("汇 ...

谢谢老师！