■列の最終行にSUM関数を挿入する （例）B列に入力された数値の合計を求める Sub test() Range("B2").End(xlDown).Offset(1, 0) = _ "=SUM(" & Range(Range("B2"), Range("B2").End(xlDown)).Address(False, False) & ")" End Sub

① Openメソッドで読み込む方法 ② ADODBでレコードセットに格納して読み込む方法 '-------------------------------------------------------------------①まずはOPENメソッドでデータを読込む方法 Sub testReadText1() Dim buf As String Dim dataArray As V…

※FileSystemObjectを事前バインディングする際は参照設定の 「Microsoft Scripting Runtime」にチェックを入れる Sub testGetFileInfo() Dim TargetPath As String Dim fileName As String Dim strExtension As String '-----------------------------------…

■まずは、単純に取得する方法 Sub testGetFileInfo() 'フルパスからファイル名を取得 strFileName = Dir(strTempFilePath) 'フルパスからフォルダパスを取得 strFolderPath = Replace(strTempFilePath, strFileName, "") End Sub ■FileSystemObjectを使用し…

■同じ値でオートフィル（関数のオーフィルなどもこの方法でOK） ************************************************************************* (例)セルB1に1を入力し、B10まで1をオートフィルで入力 Sub test1() Range("B1").Value = 1 Range("B1").AutoFil…

①特定のセルから見てデータの入っている一番下の行を取得 （途中う空白有の場合は使えない） ■ 最終行 = Range("B2").End.End(xlDown).Row ②エクセル全体の最終行を取得し、そこから順に上を見ていき、指定した列の データのある行を取得（途中空白ありもOK…