关于#vba#的问题，如何解决？(关键词-Else)

Sub sub()

Dim i, j As Integer 
i = 4 
j = 7 

Do While j < 90 
  If Cells(5, i) < j And Cells(5, i + 1) >= j Then 
    Range(Cells(5, 4), Cells(18, i + 1)).Select 
    Selection.Group 
  Else 
    i = i + 1 
  End If 
j = j + 7 
Loop 

End Sub

我的计划是把透视表每隔七天合并成一组

最好从透视表的源数据进行处理，你的是直接处理透视表数据，这样获取数据可能有问题