こんてんつ VBAで.csvファイルを読み込む方法を紹介する。 例題 下記の様な.csvファイルがあるとする。 # iris.csv Sepal.Length,Sepal.Width,Petal.Length,Petal.Width,Species 5.1,3.5,1.4,0.2,setosa 4.9,3,1.4,0.2,setosa 4.7,3.2,1.3,0.2,setosa 4.6,3.…

こんてんつ 新しいシートの挿入方法について紹介する。名前が重複した場合に、何もしないか上書きするか、2択で選べるようにした。 単にシートを追加する 指定の名前のシートが存在しなかったら追加する 指定の名前のシートが存在したら上書きする 単にシー…

こんてんつ VBAで先頭を0埋めするコードを記載する。以下の3つの例を紹介する。 MsgBoxに「001、002、…、010」と書き込む例 テキストファイル（001.txt、002.txt、…、010.txt）を作成し、"Hello 001! "、"Hello 002! "、…、"Hello 010!" と書き込む例 セルに…

こんてんつ テキストファイルを作成して1行だけ文字を入れるVBAを紹介する。 コード 下記のコードを実行すると、実行したEXCELがあるフォルダの中にtest.txtというテキストファイルが出来る。さらに、その中身には"Hello!"が書き込まれている。 Sub Test() D…

こんてんつ VBAで最終行の行数を取得する単純なマクロ。 例題 A列の最終行を取得する Sub Macro1() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox LastRow End Sub （大体） 全ての列の最終行を取得する Sub Macro2() Dim LastR…

例 コード Sub arraytest() Dim myArray As Variant Dim myHensu myArray = Array(1, 3, 6, 10) For Each myHensu In myArray Cells(myHensu, 1) = myHensu Next myHensu End Sub 実行結果 類似例① コード：Arrayをわざわざ別にせず、ForEachの場所で定義。 …

★コード Sub value() Dim i As Long For i = 1 To 200 Cells(i, 1).value = i Cells(i, 2).value = Cells(1, 3).value Next iEnd Sub ～以上～