我寫了一個宏來在一個活動單元格中插入選定的行數，但我不能讓同樣的東西在列中作業。
對于行，我有
Dim rng As Range
Dim lngIns As Long
lngIns = InNo.Value
If Not refRng.Value = ""/span> Then
Rows(CStr(Selection.row) & ":" & CStr(CLng(Selection. row). row) lngIns - 1).Select。
選擇.插入Shift:=xlDown
End If.
我試圖對列做同樣的事情（然后用If opt組合這兩個陳述句），所以代碼是
If Not refRng.Value = "" Then
Columns(CStr(Selection.column) & ":" & CStr(CLng(Selection. column) lngIns - 1).Select。
選擇.插入Shift:=xlRight
End If.
但是這導致了1004運行時錯誤（應用程式定義的或物件定義的錯誤）。這里有什么問題嗎？
uj5u.com熱心網友回復：
使用Range.Resize 屬性和避免使用 Select。
If Not refRng.Value = vbNullString Then>
Selection.EntireColumn.Resize（ColumnSize:=lngIns）.Insert Shift:=xlRight
結束 若
行的情況也一樣
If Not refRng.Value = vbNullString Then>
Selection.EntireRow.Resize(RowSize:=lngIns).Insert Shift:=xlDown
End If
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/307514.html
標籤：
上一篇：使用[[ngModel]]時，patchValue不起作用。
下一篇：有多個值的本體