Sub Encode01()
Dim rowNumber As Integer
rowNumber = Application.InputBox("Input Row Number")
Range("B1:B" & rowNumber ).Select
End Sub
rowNumber = Application.InputBox("Input Row Number")
这里调用了另外一个函数，如果有就没问题
Range("B1:B & rowNumber & ").Select
选择语句好像不对
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024