[ホーム] ＞ [VBScript FAQ 一覧] ＞ [指定した範囲のセルの値をクリアする]

指定した範囲のセルの値をクリアする | VBScript / VBA FAQ

シートの名前、列番号の指定した行から最後の行までの範囲のセルの値をクリアするサンプルコードです。
下のサンプルはclearCellという Functionです。

以下のパラメータを指定します。

sheetname・・・シート名
from_row・・・開始する行番号。
column_no・・・クリアする列

例えば from_rowに3、column_noに4を指定すると、4列目の(3から最後の行までのセルの値をクリアします。

サンプル========================================
Rem 指定したシートのrowname行からcolumn_no行の最後までのセルをクリアする
Rem from_rowから最大行までクリアする
Function clearCell(sheetname As String, from_row As Integer, column_no As Integer)

i = from_row
maxrow = Worksheets(sheetname).Cells(Rows.Count, column_no).End(xlUp).Row
Do While i <> maxrow + 1
Worksheets(sheetname).Cells(i, column_no) = ""
i = i + 1
Loop
End Function

================================================

[ホーム] ＞ [VBScript FAQ 一覧]