|
あのマクロをそのままモジュールにコピーして、
Const 列 = "A"
↓
Const 列 = "B"
にするだけでいいのですが、なぜわざわざ他のところを書き換えてしまうのでしょうか。
日付をmm/dd形式にしたいのであれば、あのマクロを使用して
20050316を2005/03/16という日付にした後、表示形式でmm/ddにすれば
よいのではないでしょうか。
ていうか、無意味なことやってる部分があったのでちょっと訂正。
Sub Macro1()
Const 列 = "B"
Dim Cell As Range
'指定列の、定数が入ったセルだけを順番に1つずつCellという変数に代入
For Each Cell In Columns(列).SpecialCells(xlCellTypeConstants)
With Cell
'Cellに入力されてる8桁の数字を、4桁,2桁,2桁に / で区切った値に書き換える
.Value = Format(.Value, "0000/00/00")
End With
Next Cell
Columns(列).AutoFit '列幅の自動調整
End Sub
|
|