扫描二维码下载沐宇APP

沐宇

微信扫码使用沐宇小程序

沐宇

vba閲宺ange鎬庝箞寮曠敤鍙橀噺

扬州沐宇科技
2023-09-05 20:58:27
vba

鍦╒BA涓紝鎮ㄥ彲浠ヤ娇鐢ㄤ互涓嬫柟娉曞紩鐢ㄥ彉閲忎綔涓篟ange鐨勫弬鏁帮細

  1. 浣跨敤鍙橀噺鍚嶄綔涓篟ange鐨勫弬鏁帮紝鍓嶉潰鍔犱笂 & 瀛楃锛?/li>
Dim rng As Range
Set rng = Range("A1:" & myVariable)
  1. 灏嗗彉閲忓€艰祴缁欎竴涓瓧绗︿覆鍙橀噺锛岀劧鍚庡皢璇ュ瓧绗︿覆鍙橀噺鐢ㄤ綔Range鐨勫弬鏁帮細
Dim rng As Range
Dim rngAddress As String
rngAddress = "A1:" & myVariable
Set rng = Range(rngAddress)
  1. 浣跨敤Cells鎴朢ange瀵硅薄鐨勬柟娉曪紝灏嗚鍙峰拰鍒楀彿浣滀负鍙橀噺浼犻€掔粰Range鐨勫弬鏁帮細
Dim rng As Range
Dim rowNum As Integer
Dim colNum As Integer
rowNum = 1
colNum = myVariable
Set rng = Cells(rowNum, colNum)

璇锋牴鎹偍鐨勫叿浣撴儏鍐甸€夋嫨閫傚悎鐨勬柟娉曟潵寮曠敤鍙橀噺浣滀负Range鐨勫弬鏁般€?/p>

扫码添加客服微信