[已解决]选区问题

qhllqhll

选区问题
选中a列有数据的后一半，请老师帮忙修改下面的代码
Sub Macro1()
h = [a65536].End(3).Row
  k = h / 2
    Range(a" & k & ":c" & h ").Select
   End Sub

最佳答案

月排行榜 / 总排行榜

豆丁

2011-8-25 07:12

Sub Macro1()
    h = [a65536].End(3).Row
    k = h \ 2
    Range("a" & k & ":c" & h).Select
End Sub

跳转到最佳答案楼层

豆丁

Sub Macro1()
    h = [a65536].End(3).Row
    k = h \ 2
    Range("a" & k & ":c" & h).Select
End Sub

qhllqhll

回复 豆丁 的帖子
老师能否说一下：为何 除法的符号用“\”正斜杠？；除法的 代用符号 不是“/”吗？
Sub Macro1()
    h = [a65536].End(3).Row
    k = h \ 2
    Range("a" & k & ":c" & h).Select
End Sub
谢谢老师 非常感谢

adders

回复 qhllqhll 的帖子

/是精确值,如总行数7,则7/2 = 3.5,那么你选半就会出错因为找不到3.5行

\是舍尾只取整数值, 7\2 = 3, 后面的.5部分就去掉了

adders

Sub Macro1()
h = [a65536].End(3).Row
k = h \ 2 + 1        '+1行似乎是你想要的结果,以选择列的下半段
Range("a" & k & ":c" & h).Select
End Sub

qhllqhll

回复 adders 的帖子

谢谢 vba 大师，！！！顶顶

learnel

还可以这样写h = [a65536].End(3).Row
不是都是这种写法么h = [a65536].End(xlup).Row

Select

End(1)	左	End(xlToLeft)
End(2)	右	End(xlToRight)
End(3)	上	End(xlUp)
End(4)	下	End(xlDown)

qhllqhll

谢谢各位老师的指点