18721107673
range用cells和columns做变量的定位
用columns做变量的定位区域
.Range(.Columns(53), .Columns(ZhLie)).Delete
'--说明:这里右侧最左边指定为53(BA开始,主要为了绕过第2行,不要删除填写的透视表的变量)
----------------------
.Columns("H:H").Hidden = True
.Columns("G:G").Hidden = False
----------------------
用cells做变量的定位区域
With Worksheets("P00_用友nc_凭证")
.Range(Cells(5, 5), Cells(10, 8)).Select
End With