導入：なぜこのテクニックが重要なのか
実務において、既存のシートをコピーして新しい作業用シートを作成することは頻繁にあります。しかし、Excelの標準機能である「シートのコピー」を使うと、セルに設定された背景色や罫線、複雑な数式まで全て引き継がれてしまい、不要なデータが残ることでファイルが重くなったり、意図しないエラーが発生したりすることがあります。
今回紹介する「値と接頭辞（’）のみを抽出して新規シートに転記する」手法は、データをクリーンな状態で保持したい場合や、特定のセルの頭についたシングルクォーテーションを維持して文字列として扱いたい場合に非常に有効です。
基礎知識：PrefixCharacter（接頭辞）とは
Excelのセルには、数値の先頭に「’（シングルクォーテーション）」を付けて文字列として強制的に扱う機能があります。これをVBAではPrefixCharacterプロパティで取得できます。
通常のコピー＆ペーストではこの接頭辞が無視されることがありますが、今回紹介する手法では、このプロパティを明示的に取得することで、データの形式を正確に再現したまま新しいシートへ移すことが可能になります。
実装・解決策
今回の解決策の核となるのは、以下の手順です。
1. 現在のシート（ActiveSheet）を変数に格納する。
2. Sheets.Addメソッドの引数に現在のシートを指定し、その直後に新規シートを挿入する。
3. 元シートのUsedRange（使用されているセル範囲）をループで回す。
4. 各セルのPrefixCharacterとValueを結合し、新しいシートの同じアドレスに代入する。
サンプルプログラム
以下のコードを標準モジュールに貼り付けて実行してください。
Sub CopyValueAndPrefix()
‘ 変数の宣言
Dim myBaseSht As Worksheet
Dim myNewSht As Worksheet
Dim myCell As Range
‘ 現在のアクティブシートをベースとして設定
Set myBaseSht = ActiveSheet
‘ アクティブシートの直後に新しいシートを挿入
Set myNewSht = Sheets.Add(After:=myBaseSht)
‘ 元シートの使用範囲をループ処理
For Each myCell In myBaseSht.UsedRange
‘ 新しいシートの同じアドレスに対して、
‘ 接頭辞と値を結合して書き込む
myNewSht.Range(myCell.Address).Value = _
myCell.PrefixCharacter & myCell.Value
Next myCell
‘ 完了を通知
MsgBox “データの転記が完了しました。”
End Sub
応用・注意点
このコードを使用する際の注意点をいくつか挙げます。
・数式の扱い：この手法では、数式は計算結果の「値」として転記されます。数式のロジック自体をコピーしたい場合は、この手法ではなくRangeオブジェクトのCopyメソッドを使用してください。
・処理速度：UsedRangeが非常に広い場合（数万行以上）、セルを1つずつループで回す処理は時間がかかることがあります。その場合は、一度配列に格納して一括出力する手法に切り替えるのが実務における最適解です。
・エラー回避：新しいシートを挿入する際、シート名が重複するとエラーになる可能性があります。必要に応じて新規シートにユニークな名前を付ける処理（例: Format(Now, “hhmmss”)を使用）を追加することをお勧めします。
この手法をマスターすることで、複雑な書式に振り回されず、純粋なデータのみを抽出する柔軟なVBAツールを作成できるようになります。ぜひ現場の業務改善にお役立てください。
