シングルクォートの削除とコピー（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 ・・・新着記事一覧を見る
VBA100本ノック 18本目：名前定義の削除｜VBA練習問題100（11月6日）
VBA100本ノック 17本目：重複削除（ユニーク化）｜VBA練習問題100（11月6日）
VBA100本ノック 16本目：無駄な改行を削除｜VBA練習問題100（11月5日）
VBA100本ノック 15本目：シートの並べ替え｜VBA練習問題100（11月4日）
VBA100本ノック 14本目：社外秘シート削除｜VBA練習問題100（11月3日）
VBA100本ノック 13本目：文字列の部分フォント｜VBA練習問題100（11月1日）
VBA100本ノック 12本目：セル結合を解除｜VBA練習問題100（10月31日）
VBA100本ノック 11本目：セル結合の警告｜VBA練習問題100（10月30日）
VBA100本ノック 10本目：行の削除｜VBA練習問題100（10月29日）
VBA100本ノック 9本目：フィルターコピー｜VBA練習問題100（10月28日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.マクロって何？VBAって何？｜VBA入門
6.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- シングルクォートの削除とコピー（PrefixCharacter）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。