我正在尝试确定特定行中使用的列数并将它们向右移动。这是我到目前为止所拥有的,但这似乎不起作用。请帮忙。
Dim LastCol As Integer
LastCol = DataSheet.Cells(arr(z)(1), DataSheet.Cells(arr(z)(1).Columns.Count))
'arr(z)(1) is an integer extracted from a 2 multidimensional array
Dim rng As Range
Set rng = Range(DataSheet.Cells(arr(z)(1), 2), DataSheet.Cells(arr(z)(1),LastCol))
rng.Insert Shift:=xlRight