シングルクォートの削除とコピー（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技術解説」の記事
VBAのマルチステートメント（複数のステートメントを同じ行に）
クリップボードに2次元配列を作成してシートに貼り付ける
ユーザー定義型の制限とクラスとの使い分け
シングルクォートの削除とコピー（PrefixCharacter）
空文字列の扱い方と処理速度について（""とvbNullString）
VBAにおける変数のメモリアドレスについて
Evaluateメソッド（文字列の数式を実行します）
Rangeオブジェクトの論理演算（差集合と排他的論理和）
VBAで写真の撮影日時や音楽動画の長さを取得する
VBAでWindowsMediaPlayerを使い動画再生する
VBAでWEBカメラ操作する
新着記事NEW ・・・新着記事一覧を見る
シートコピー後のアクティブシートは何か｜ツイッター出題回答 (2023-09-19)
Excel関数の引数を省略した場合について｜ツイッター出題回答 (2023-09-14)
セル個数を返すRange.CountLargeプロパティとは｜VBA技術解説(2023-09-08)
記号を繰り返してグラフ作成（10単位で折り返す）｜ツイッター出題回答 (2023-08-28)
シートを削除：不定数のシート名に対応｜VBAサンプル集(2023-08-24)
ランクによりボイントを付ける（同順位はポイントを分割）｜ツイッター出題回答 (2023-08-22)
OneDrive使用時のThisWorkbook.Pathの扱い方｜VBA技術解説(2023-07-26)
列幅不足による###表示や指数表示を判定する｜VBA技術解説(2023-07-12)
シートを削除：不定数のシート名に対応｜VBAサンプル集(2023-07-04)
シート関数のCOUNTIFS,SUMIFS,MAXIFSと同じ処理｜Power Query（M言語）入門(2023-02-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.マクロとは？VBAとは？VBAでできること｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
10.条件分岐（IF）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- シングルクォートの削除とコピー（PrefixCharacter）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。