vba/excelの桁数制限下での左(前方)0詰めと右(後方)半角空白詰めのひとつの手法

vbaの4桁右ゼロ詰めは、Format(key1,"0000")
EXCELシートのAnセルの内容を4桁左(前方)ゼロ詰めする場合、=TEXT(An,"0000")の関数を埋め込む。
vbaの40桁右(後方)半角空白詰めは、Left(key2 & String(40," "),40)

vbaで最大行を求めるにはxldownよりもxlupを使うのが良さそうだ。これをVBA SNIPPETSにする。

Cells(1, 1).End(xlDown).Rowではなく、Cells(Rows.Count, 1).End(xlUp).Rowの方が良さそうだ。

'Snippets for VBA
'Get maxRow and maxClm
  Dim maxRow As Long
  maxRow = Cells(Rows.Count, 1).End(xlUp).Row 'the last Row of column A
  maxClm = Cells(1, Columns.Count).End(xlToLeft).Column 'max Column of row 1

mk editorはEUCかシフトJISか判定できない時に「ShiftJISまたはEUCで文字列を識別できませんでした。EUCとして開いて問いでしょうか？[はい]EUCとして開く[いいえ]ShiftJISで開くというメッセージを出す。

mk editorはEUCかシフトJISか判定できない時に「ShiftJISまたはEUCで文字列を識別できませんでした。EUCとして開いてよいでしょうか？[はい]EUCとして開く[いいえ]ShiftJISで開くというメッセージを出す。