如何確定連續使用的列的數量

Question

我想確定一個特定行中使用的列的數量並將它們右移。這是我迄今爲止，但這似乎並沒有工作。請幫忙。

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 

Answer 1

Dim LastCell as Range 
With DataSheet 
    Set lastCell = .Cells(arr(Z)(1), Columns.Count).End(xlToLeft) 
    .Range(.Cells(arr(Z)(1), 2), lastCell).Insert Shift:=xlShiftToRight 
End With