excel vba中range(cells(1,1),(cells(1,2))是否等于range(A1:B1),如果不能用什么符号呢?程序如下:
Dimtji,tjj,tja,tjb,tjc,tjdFortji=16To34Fortjc=6To238IfCells(tjc,4)=""ThenGoTotjforend...
Dim tji, tjj, tja, tjb, tjc, tjd
For tji = 16 To 34
For tjc = 6 To 238
If Cells(tjc, 4) = "" Then GoTo tjforend
Next
tjforend:
Range(Cells(5, 1), Cells(tjc, 4)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
Cells(4, tji), Cells(5, tji)), CopyToRange:=Range(Cells(6, tji), Cells(6, tji + 1)), Unique:=False
tji = tji + 1 展开
For tji = 16 To 34
For tjc = 6 To 238
If Cells(tjc, 4) = "" Then GoTo tjforend
Next
tjforend:
Range(Cells(5, 1), Cells(tjc, 4)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
Cells(4, tji), Cells(5, tji)), CopyToRange:=Range(Cells(6, tji), Cells(6, tji + 1)), Unique:=False
tji = tji + 1 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询