행에 사용 된 열의 수를 결정하는 방법

Question

나는 perticular 행에서 사용 된 열 수를 확인하고 오른쪽으로 시프트하려고합니다. 이것은 내가 지금까지 가지고있는 것이지만 이것은 효과가없는 것 같습니다. 도와주세요.

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