|
▼Asaki さん:
>結合セルは、基本的には、マクロとあまり相性が良くありません。
>できるなら使わないことですが、逆に、後から結合するのではダメでしょうか?
↑
この方法でやってみました。以下コードです。
Sheets("漢字プリント(高)").Cells(m, n).Value = _
Sheets("問題作成").Cells(i, 1).Value
↑
漢字の部分は、関係ないのでValueのままで
Sheets("問題作成").Select
Sheets("問題作成").Cells(i, 2).Copy
Sheets("漢字プリント(高)").Select
Sheets("漢字プリント(高)").Cells(m, n + 1).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone
Sheets("漢字プリント(高)").Cells(m, n + 1).Resize(14).Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.Orientation = xlVertical
.IndentLevel = 1
.ReadingOrder = xlContext
.MergeCells = True
End With
これでうまくいったのですが、セルを結合するたびに「選択範囲には複数のデータがあります。一つのセルとして結合すると………」という注意賀でます。20問作っているので20回出てきます。これがでなければバッチリなんですが。
これをでなくする方法はないのでしょうか?
よろしくお願いします。
|
|