Whoocus

ワークシートの”Sheet2″ の値の存在する最終行のValue を取得する方法。
一度、シートの最終行を取得し、xlUpで戻るイメージ。

Sub getLastRowValue()
    Dim val As String

    val = Worksheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Value

    MsgBox val

End Sub

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    rowcnt = Selection.Rows.Count

エクセルのテンプレートエンジンを試してみる。MiniTemplator

使用した感想は後日。たぶん・・・。

Option Explicit

Sub CreateFile()

Dim StrFileName As String
Dim intFileNo As Integer

StrFileName = ActiveWorkbook.Path & "out.txt"
intFileNo = FreeFile



Open StrFileName For Output As #intFileNo

Write #intFileNo, "これはWriteテストです。"
Print #intFileNo, "これはPrintテストです。"

Close #intFileNo

End Sub