Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70870 / 76734 ←次へ | 前へ→

【10366】Re:行の追加
回答  パピー(PAPIー)  - 04/1/21(水) 13:45 -

引用なし
パスワード
   ▼たかみ さん:
ひょっとして、53行目の上の罫線は二重線等でしょうか?
合計の上の罫線がほかの横線と同じであれば、罫線もコピーされます。

とりあえず、罫線の事はおいておいて書式のみコピー&ペースト
してみました。
最終行が合計だとします。
コマンドボタンを押すたびに追加されていきます。

Private Sub CommandButton1_Click()

Dim L As Long
  
  L = Range("B65536").End(xlUp).Row
  
  Rows(L).Insert Shift:=xlDown

  Rows(L - 1).Copy
  Rows(L).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

  Application.CutCopyMode = False

End Sub

なお、Rows(L).PasteSpecial の行は、『形式を選択して貼り付け』です。
INAさんの回答の様にマクロの自動記録で試してみて変更してください。
0 hits

【10355】行の追加 たかみ 04/1/21(水) 10:04 質問
【10357】Re:行の追加 INA 04/1/21(水) 10:37 回答
【10358】Re:行の追加 パピー(PAPIー) 04/1/21(水) 10:42 回答
【10359】Re:行の追加 たかみ 04/1/21(水) 10:51 お礼
【10361】Re:行の追加 INA 04/1/21(水) 11:22 回答
【10363】Re:行の追加 たかみ 04/1/21(水) 11:28 質問
【10365】Re:行の追加 INA 04/1/21(水) 13:29 回答
【10366】Re:行の追加 パピー(PAPIー) 04/1/21(水) 13:45 回答
【10393】Re:行の追加 たかみ 04/1/23(金) 14:22 質問
【10396】Re:行の追加 パピー(PAPIー) 04/1/23(金) 15:51 回答

70870 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free