[[20170802185742]]　『行挿入について』（keiji）　ページの最後に飛ぶ

『行挿入について』（keiji）

よろしくお願いします
以下マクロにて一行挿入していますが
A列は通し番号なので行挿入せずにN列まで
一行繰り下げるようなマクロですがご教授お願いします。
以下ではA列も行挿入してしまいます。

   Dim wGyou As Long

         Application.EnableEvents = False
    wGyou = ActiveCell.Row
    If wGyou < 3 Then Exit Sub
    Application.CutCopyMode = False
    Range(wGyou + 1 & ":" & wGyou + 1).Select
    Selection.EntireRow.Insert

    Range("N" & wGyou).Copy
    Application.CutCopyMode = False
    Range("A" & wGyou + 1).Select
         Application.EnableEvents = True

イメージは以下です
３行目見出し行

  A    B     C ・・N
3 No.   見出し行
4  1  データ行
5  2  データ行
6  3  データ行

  A    B     C ・・N
3 No.   見出し行
4  1  空白行挿入B～N
5  2  データ行
6  3  データ行

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 こういうことですか？

    Dim wGyou As Long
    wGyou = ActiveCell.Row
    If wGyou < 3 Then Exit Sub
    Application.EnableEvents = False
    Range(wGyou + 1 & ":" & wGyou + 1).Columns("B:N").Insert shift:=xlDown
    Application.EnableEvents = True
（稲葉） 2017/08/02(水) 19:14

（稲葉）さん
まさにこの通りです。
１点のみ以下で表をダウンしているのだと思うのですが、41行目までの罫線表がある
フォーマットなにですが以下を実行することで罫線表が42行目にダウンします
42行目以下の罫線を消すことは可能でしょうか？
よろしくお願いします。

    Range(wGyou + 1 & ":" & wGyou + 1).Columns("B:N").Insert shift:=xlDown
（keiji） 2017/08/02(水) 19:33

 42行以降と決まっているのであれば、 まずはマクロの記録からされてはどうでしょうか？！
 外枠と内側の格子で異なった罫線にされているなら、そこも調整必要そうですねぇ
（稲葉） 2017/08/02(水) 20:39

（稲葉）さん
ありがとうございました。
マクロの記録で何とか出来ました。

（keiji） 2017/08/03(木) 15:50

コメント返信：

[ 一覧(最新更新順) ]

[[20170802185742]] 『行挿入について』（keiji） ページの最後に飛ぶ

[[20170802185742]]　『行挿入について』（keiji）　ページの最後に飛ぶ