|
▼いのっち さん:
こんにちは!
>"氏名 ""山田太郎さん""
>電話番号 = 090-1234-5678"
>
>"氏名 ""山田太郎さん""■電話番号 = 090-1234-5678"
Excel2003ですが同じ結果となりました。
どうやら、chr(10),chr(13),vbCrLfなどが入るとテキストなどに
ペーストする際、「ここからここまでがグループですよ」という意味で
「”」が入ってきてしまうようですね。
改行等が入らないセルでしたら通常通りにいけるのですね。
確かにお節介機能かもしれません^^;
Jakaさんの置換作業以外に、単純に行を挿入してコピーする方法しか
思い浮かびませんでした。
参考程度にしていただけたら幸いです。
Sub test()
Dim i As Integer
For i = 1 To 12 Step 2 '6人まで対応
Rows(i + 1).Select
Selection.Insert Shift:=xlDown
Range("C" & i) = "氏名 " & Chr(34) & Range("A" & i).Value & "さん" & Chr(34)
Range("C" & i + 1) = "電話番号 = " & Range("B" & i).Value
Next
Range("A1").Select
End Sub
|
|