Excel VBA質問箱 IV

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

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


9 / 13327 ツリー ←次へ | 前へ→

【80933】2回に1回エラーが出る さと 19/6/23(日) 19:23 質問[未読]

【80971】Re:2回に1回エラーが出る よろずや 19/6/27(木) 14:22 発言[未読]

【80971】Re:2回に1回エラーが出る
発言  よろずや  - 19/6/27(木) 14:22 -

引用なし
パスワード
   提示されたものの無駄を省くと、以下の様になります。

Option Explicit
Sub 当月入力準備()
  Dim a As Long, b As Long
  Application.ScreenUpdating = False
  With Sheets("7月").Range("B2")   
    With .CurrentRegion
      a = .Rows.Count
      b = .Columns.Count
    End With
    .Offset(2, 1).Resize(a - 3, b - 1).Copy
    .Offset(3, 1).Resize(a - 3, b - 1).PasteSpecial xlPasteValues
    .Offset(2, 1).Resize(a - 6, b - 1).ClearContents
  End With
End Sub

マクロの記録では、Select Selection がやたら出てきますが、
これらは、基本的には不要です。

処理としてこれで正しいのかどうかは、シートの構成が判りませんので、不明です。

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