dhenkanマクロ修正しました

以前、「データベース変換～dhenkanマクロの使い方」で、VBコードを貼り付けて、マクロ登録すると、簡単にデータベースに変換できる解説をしました。

ただ、マクロを実行後、データ部分に設定した数式や関数までクリアされてしまうという意見が寄せられました。（ありがとうございます。）

ということで、数式や関数が入力されたセルはクリアしないようにVBコードを修正しました。


Sub dhenkan()
'
' データベース変換
'
Dim nyu As Integer, db As Integer

nyu = Worksheets("入力").Range("a1").CurrentRegion.Rows.Count
db = Worksheets("データ").Range("a1 ").CurrentRegion.Rows.Count

For Count = 1 To nyu

Worksheets("データ").Cells(db + 1, Count) = Worksheets("入力").Cells(Count, 2)

Next

For Count = 1 To nyu

If Not Worksheets("入力").Cells(Count, 2).HasFormula Then

Worksheets("入力").Cells(Count, 2).ClearContents
End If

Next

Range("b1").Select

End Sub


「データベース変換①～コードを貼り付ける」を参照して上記のコードを貼り付けし直してください。

少しでもお仕事のお役に立てたらうれしいです。