수식을 포함한 새 열 추가

Question

좋은 날,

선택한 열의 수식을 포함하여 만드는 시트에 열을 추가하려고합니다. 나는 이것을보고 어떤 코드 서핑을 확인 사항에 따라 는

이 코드는 정말 내 요구에 맞는

Sub InsertRows() 

Dim Rng As Long 
Dim lngA As Long 
Dim lngB As Long 

Application.ScreenUpdating = False 

Rng = InputBox("Enter number of rows required.") 

If Rng = 0 Then Exit Sub 

Range(ActiveCell.Offset(1), ActiveCell.Offset(Val(Rng), 0)).EntireRow.Insert 

'// How many formulas To copy down? 
'// From A To last entry In row. 
lngB = ActiveCell.Row 
lngA = Cells(lngB, Columns.Count).End(xlToLeft).Column 
Range(Cells(lngB, 1), Cells(lngB + Val(Rng), lngA)).FillDown 

그러나 여러 번 시도한 후, 나는 열 함수로 변환 할 수 없습니다입니다. 이걸 변환하기 위해 당신의 도움을 요청할 수 있습니까? 는 너무 감사

안부,

Answer 1

확인이 아웃 :

Sub InsertCols() 
Dim Rng As Long 

Application.ScreenUpdating = False 

Rng = InputBox("Enter number of rows required.") 

If Rng = 0 Then Exit Sub 

Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, Val(Rng))).EntireColumn.Insert 

ActiveCell.EntireColumn.Copy 
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, Val(Rng))).EntireColumn.PasteSpecial xlPasteAll 
Application.CutCopyMode = False 

End Sub