[已解决]隐藏行的代码

含月化烛

Sub t1()
Dim irow%, xrow%, x%, y%
xrow = Sheets("全公司明细").Cells(Rows.Count, "e").End(3).Row + 1
irow = Sheets("全公司明细").UsedRange.Rows.Count
Sheets("全公司明细").Range("D" & irow - 5).Resize(6, 29).Copy Sheets("全公司明细").Cells(xrow, "d")
x = Sheets("全公司明细").UsedRange.Rows.Count - 11
y = Sheets("全公司明细").UsedRange.Rows.Count - 7
Range("x:y").EntireRow.Hidden = True
end sub



其中irow=487,xrow=488,x=482,y=486
为什么运行到   Range("x:y").EntireRow.Hidden = True 这一句时，此工作表的所有单元格全都隐藏了，而我只想隐藏482行到486行这5行的。这一句有什么错误吗？

最佳答案

月排行榜 / 总排行榜

爱疯

2014-6-27 16:54

最好上传附件，不然如果是别的原因，别人只有猜了

x,y都是变量，这样呢？
Range(x & ":" & y).EntireRow.Hidden = True

跳转到最佳答案楼层

爱疯

最好上传附件，不然如果是别的原因，别人只有猜了

x,y都是变量，这样呢？
Range(x & ":" & y).EntireRow.Hidden = True

qh8600

Range("x:y").EntireRow.Hidden = True   ‘X,Y是数字用range是单元格感觉是不行的
改为
Rows(x & ":" & y).EntireRow.Hidden = True   换成rows()
试试
最后上传附件

大灰狼1976

Range("x:y")这里的xy不是变量，而是字符串，所以不行，2楼方法可行
当然3楼的ROWS方法也行，但是分析原因有误。