Excel VBA質問箱 IV

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

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


47268 / 76732 ←次へ | 前へ→

【34424】Re:表の下の空欄・・・
回答  NECRO  - 06/2/2(木) 11:24 -

引用なし
パスワード
   ▼Help me!! さん:
こんにちは。

終端セルは『End プロパティ』で取得できます。
詳しくはヘルプを参照してください。

下記はサンプルです。

Public Sub SAMPLE()
  Dim shtTEMP As Worksheet
  Dim max_row As Long

  'シート変数の参照設定
  Set shtTEMP = ThisWorkbook.ActiveSheet
  '-> 実際作業するシートを設定してください。

  '最終行の取得
  max_row = shtTEMP.Cells(shtTEMP.Rows.Count, 1).End(xlUp).Row
  '-> 対象列は必須入力列をに変えてください。

  '最終行+1行目以降を削除
  shtTEMP.Rows(max_row + 1 & ":" & shtTEMP.Rows.Count).Delete

  'シート変数の参照解放
  Set shtTEMP = Nothing

End Sub
0 hits

【34414】表の下の空欄・・・ Help me!! 06/2/2(木) 9:19 質問
【34424】Re:表の下の空欄・・・ NECRO 06/2/2(木) 11:24 回答

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