シングルクォートの削除とコピー（PrefixCharacter）
セルに入力した先頭の'シングルクォーテーションは特殊なものとなっています。
通常は、数値を文字としてセルに入れるときに使っているものです。
マクロVBAでセル値を取得すると、この'シングルクォーテーションはValueでは取得できません。
したがって、
セル.Value = セル.Value
これを実行すると、先頭の'シングルクォーテーションは消えてしまいます。
セルのコピーでは'シングルクォーテーションも含めてコピーされますが、値貼り付けでは消えてしまいます。
シングルクォーテーション意味
オプションで、Lotus1-2-3のキー操作に変更することができます。
オプションの一番下に設定があります。
Lotus1-2-3のキー操作では、
「'」左寄せ、「^」中央寄せ、「"」右寄せ、「\」セル幅に繰り返す
これらがあります。
オプションでLotus1-2-3のキー操作にチェックを付けていない場合は、「'」左寄せのみ有効な状態といえるでしょう。
VBAでシングルクォーテーションがコピーされる場合と消える場合
・コピー＆ペースト
Range("A:B").Copy Destination:=Range("C1")
Range("A1:B2").Copy
Range("C1").PasteSpecial Paste:=xlPasteAll
ただし、コピー先がすでにシングルクォーテーションが付いている場合は残ります。
Range("A:B").Copy
Range("C1").PasteSpecial Paste:=xlPasteValues
Range("C1:D1").Value = Range("A1:B1").Value
VBAでのシングルクォーテーションの取得方法
PrefixCharacterプロパティは、セルのプレフィックス文字を返します。
・Falseの場合、 'または空白になります。
・Trueの場合、'左揃え、"右揃え、^中央寄せ、\繰り返し、または空白になります。
VBAでシングルクォーテーションを取り除くVBA
Public Sub prefixDelete(argRange As Range)
'対象セル範囲を使用セル範囲に限定
Dim ws As Worksheet
Set ws = argRange.Worksheet
Set argRange = Intersect(ws.Range(argRange.Item(1), _
ws.UsedRange(ws.UsedRange.Count)), _
argRange)
'プレフィックス文字がある場合のみValueをコピー
Dim myRange As Range
For Each myRange In argRange
If myRange.PrefixCharacter <> "" Then
myRange.Value = myRange.Value
End If
Next
End Sub
PrefixCharacterが空白以外の時だけValueをコピーしています。
広いセル範囲が指定された場合の無駄なコピーを省くために、UsedRangeの範囲に限定しています。
Call prefixDelete(Range("A:B"))
VBAでシングルクォーテーションを含めて値コピーするVBA
Public Sub prefixCopy(ByVal fromRange As Range, _
ByVal toRange As Range)
'コピー元範囲を使用セル範囲に限定
Dim ws As Worksheet
Set ws = fromRange.Worksheet
Set fromRange = Intersect(ws.Range(fromRange.Item(1), _
ws.UsedRange(ws.UsedRange.Count)), _
fromRange)
'Prefixを付けてVlueをコピー
Dim fRng As Range, tRng As Range
Dim i1 As Long, i2 As Long
For i1 = 1 To fromRange.Rows.Count
For i2 = 1 To fromRange.Columns.Count
With fromRange.Item(i1, i2)
toRange.Item(i1, i2).Value = .PrefixCharacter & .Value
End With
Next
Next
End Sub
プレフィックスを付けてValueをコピーしています。
コピー先のセル範囲の大きさは考慮していません。
コピー先の先頭セルからコピー元の大きさでコピーしています。
Call prefixCopy(Range("A:B"), Range("C1"), True)
ちなみに、プレフィックスを取り除いてコピーする場合は
toRange.Resize(fromRange.Rows.Count, fromRange.Columns.Count).Value = fromRange.Value
これだけで済みます。
同じテーマ「VBA技術解説」の記事
ShapesとDrawingObjectsの相違点と使い方
新規挿入可能なシート名の判定
VBAにおける配列やコレクションの起点について
VBAのマルチステートメント（複数のステートメントを同じ行に）
クリップボードに2次元配列を作成してシートに貼り付ける
ユーザー定義型の制限とクラスとの使い分け
シングルクォートの削除とコピー（PrefixCharacter）
空文字列の扱い方と処理速度について（""とvbNullString）
VBAにおける変数のメモリアドレスについて
Evaluateメソッド（文字列の数式を実行します）
Rangeオブジェクトの論理演算（差集合と排他的論理和）
新着記事NEW ・・・新着記事一覧を見る
ツイッターで出されたVBAのお題をやってみた｜エクセル雑感（1月13日）
イベントプロシージャーの共通化（Enter,Exit）｜ユーザーフォーム入門（1月13日）
Rangeオブジェクトの論理演算（差集合と排他的論理和）｜VBA技術解説（1月10日）
イベントプロシージャーの共通化｜ユーザーフォーム入門（1月7日）
コントロールの動的作成｜ユーザーフォーム入門（1月6日）
Evaluateメソッド（文字列の数式を実行します）｜VBA技術解説（1月5日）
エクスポート（PDF/XPS）｜VBA入門（1月2日）
分析関数（OVER句,WINDOW句）｜SQL入門（12月25日）
取得行数を限定するLIMIT句｜SQL入門（12月21日）
外部ライブラリ（ActiveXオブジェクト）｜VBA入門（12月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロって何？VBAって何？｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。