Excel VBA質問箱 IV

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

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


9374 / 76732 ←次へ | 前へ→

【72920】Re:追加ボタンによる行挿入
発言  UO3  - 12/10/8(月) 8:27 -

引用なし
パスワード
   ▼大渕 さん:

私のお薦めは上記の通りなんですが、VBAでということなら

Sub 追加_2()
  Dim z As Long
  
  With ActiveSheet.UsedRange
    z = .Cells(.Cells.Count).Row
  End With
  
  With Range("A" & z & ":S" & z)
    .Copy .Offset(1)
    .Cells(1).Offset(1, 1).Select
  End With
    
End Sub

1 hits

【72918】追加ボタンによる行挿入 大渕 12/10/8(月) 1:05 質問
【72919】Re:追加ボタンによる行挿入 UO3 12/10/8(月) 8:11 発言
【72922】Re:追加ボタンによる行挿入 大渕 12/10/9(火) 23:04 お礼
【72920】Re:追加ボタンによる行挿入 UO3 12/10/8(月) 8:27 発言
【72921】Re:追加ボタンによる行挿入 12/10/8(月) 19:04 発言
【72923】Re:追加ボタンによる行挿入 大渕 12/10/9(火) 23:07 お礼

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