ボタンで右ズレ
土曜日, 9月 18th, 2021Sub 右ズレ()
Dim rngA, rngB As Range
Set rngA = Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address) 'ボタンの左上セル番地
Set rngB = Range(ActiveSheet.Shapes(Application.Caller).BottomRightCell.Address).Offset(-1, -1) 'ボタン右下のセル番地
Application.CutCopyMode = False 'コピーモード解除
Range(rngA.Address, rngB.Address).Offset(0, 1).Insert (xlShiftToRight) 'ボタンサイズ分挿入して右へシフト
End Sub