For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Cells(i, 1) <> "A" Then Rows(i).Hidden = True End If Next With Range("A1").CurrentRegion 'データがある場合 If .SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then 'データ範囲内の、可視セルのみを削除する .Rows("2:"...
15.Range以外の指定方法(Cells,Rows,Columns)|VBA入門 Rangeの指定で、あらゆるセルおよびセル範囲は指定できるのですが、マクロで使う場合は、ちょっと使いづらい場合があります。しかし、"A1"や"B5"のような文字で指定するのでは何かと不便です、もっと、プログラムっぽい(笑)指定方法がありま...
これは、複数セルの範囲でもできます。 ※画像の都合で改行しています。 この場合は、 .Value を省略できません。 以前に.Valueについて、 セル(Range、Cells)にプロパティ(Value)を書かなければ、.Valueが省略されたことになると書きましたが、 この場合だけ(他にも省略できない場合はありま...
そもそも、元々の処理が、セルのある範囲をテキストファイルに出力させるために、 For i = start To finish Print #1, ws.Cells(i, 2).Value Next という単純にファイルにセル内容を順番に出力するものでしたが、セルの中に場合によって、空行が生じて、出力させないために、空行になる...
SubMyInput()WithWorkbooks("Book1").Worksheets("Sheet1").Cells(1,1) .Formula ="=SQRT(50)"With.Font .Name ="Arial".Bold =True.Size =8EndWithEndWithEndSub 関連項目 Visual Basic の概念に関するトピック サポートとフィードバック ...
VBA For Loop – セルの範囲をループする Excel VBAのループ – For Each, For Next, Do While など VBA For Eachの例(クイックリファレンス) VBA Exit For VBA ループを抜ける Ranges and Cells yes Excel VBA 範囲とセル Excel VBAの数式 – 究極のガイド Excel VBA 範囲のサ...
列番号から列文字を取得する別の手法は、Cells()関数をAddress()関数と共に使用することです。 列文字を取得する方法は次のとおりです。 構文: Cells(1, Column Number).Address このステートメントは、$CV$1の形式でセル参照を返します。 コード ステートメントを実行すると、次の結果が得られ...
k As Long k = 21 For i = 2 To rowsData Dim deliDate As Date deliDate = wsData.Cells(i, 1).Value If Year(deliDate) = 2018 And Month(deliDate) = 1 Then wsData.Range(wsData.Cells(i, 2), wsData.Cells(i, 4)).Copy wsTemplate.Cells(k, 1) k = k + 1 End If Next i '...
'csvファイルをオープン i = 1 Do Until EOF(1) Line Input #1, strLine arrLine = Split(Replace(strLine, """, ""), ",") 'strLineをカンマで区切りarrLineに格納 For j = 0 To UBound(arrLine) ws.Cells(i, j + 1).Value = arrLine(j) Next j i = i + 1 Loop Close #1 En...
PublicSubTestLoopArray()'配列を宣言するDimrnArray()AsVariant'行番号を格納する整数を宣言するDimiRwAsInteger'配列変数に範囲を代入rnArray=Range("A1:A10")'配列の値をループするForiRw=LBound(rnArray)ToUBound(rnArray)'別の範囲にデータを入力するCells(iRw,2).Value=rnArray(iRw,1)NextiRwEn...