|
▼桃太郎 さん:
Selection.Value = "hoge"
Slectionが結合セルであろうとなかろうと、このコードは 左辺のSelection のすべてのセルに右辺の値が代入されます。
で、Selectionが結合セルの場合は、結果的に、Selectionの先頭セル(結合セルの代表セル)以外の値は空白にされるということです。
結合セルではない、通常の複数セル領域を選択して試してみてください。
それは、さておき、今回の質問ですが、
Selection.Value = Selection.Value & Cells(21, 17).Value
左辺のSelection は上記で説明した通りですが問題は【右辺】のSelection.
ここが複合せルですね。複合セルということは複数セル領域です。
たとえば、 MsgBox Range("A1:A2").Value & "hoge"
こんなコードを実行するとエラーになります。
複数セル領域のValue は 1つの値ではなく【配列】になった値です。
左辺も右辺も配列であれば、転記はできますが、右辺が 配列に単一の値を付加したもの。
こういった値は生成できません。
このあたり、ややこしいかもしれませんが、右辺を【単一の値】にする必要があります。
Selection.Value = Selection(1).Value & Cells(21, 17).Value
にしてください。
ところで、Cells(21, 17).Value これって、わかりにくくないですか?
Range("Q21").Value のほうがわかりやすくないですか?
|
|