エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150216132101]]: #score: 9211; @digest: 1d95ea84fdec7fce81039313c99a11e8; @id: 67286; @mdate: 2015-02-16T23:34:33Z; @size: 2359; @type: text/plain; #keywords: sinzou (7620), xlpastecolumnwidths (7196), 行() (6538), 来月 (6512), 小刻 (5341), パオ (4127), テン (3734), 月") (3596), 体裁 (3536), rowheight (2705), プレ (2328), f25 (2273), レー (2069), 応方 (1801), ト") (1663), 用上 (1459), 保持 (1317), （si (1303), ンプ (1226), 意外 (1108), paste (1053), 記: (965), 持し (896), 運用 (888), 2015 (875), と… (813), リセ (775), pastespecial (767), ねこ (752), とら (706), worksheets (666), 月) (661); 『表の体裁を保持して貼り付けしたい』（sinzou）
マクロによる表の貼り付けを頻回に行っております。（シート名は仮です） Sub 最終行() Sheets("テンプレート").Select Range("A1:F25").Select Selection.Copy Sheets("来月").Select n = Cells(Rows.Count, "B").End(xlUp).Row + 1 Range("A" & n).Select ActiveSheet.Paste End Sub これで、貼り付けた場合、テンプレートの行・列の幅がリセットされてしまいますが、体裁を保持したままで貼り付ける方法はあるでしょうか? よろしくお願いします。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- テンプレートシート自体をコピーしてリネームしては? （パオ〜〜ン） 2015/02/16(月) 13:40 ---- 行のほうはうまくいかなかったのですが ActiveSheet.Pasteの前に Selection.PasteSpecial Paste:=xlPasteColumnWidths を追加すると列は幅もコピーしてくれますよ Sub 最終行() Dim n Worksheets("テンプレート").Range("A1:F25").Copy Sheets("来月").Select n = Cells(Rows.Count, "B").End(xlUp).Row + 1 Range("A" & n).Select Selection.PasteSpecial Paste:=xlPasteColumnWidths ActiveSheet.Paste End Sub （とらねこ） 2015/02/16(月) 15:57 ---- 追記:もし行の高さが全て同じならあらかじめ高さを揃えておくのがいいと思いますよ（とらねこ） 2015/02/16(月) 16:37 ---- パオ〜〜ンさん、とらねこさんへ表は必要数分を小刻みに増やして調整するので運用上、シートごと…という訳にはいきません。（説明が足りず申し訳ありません）とらねこさんの教えて下さったマクロ、使用してみます。表を体裁ごとコピーするのは意外と難しいんですね… （sinzou） 2015/02/16(月) 17:03 ---- 運用がわかりませんが、テンプレートの中に複数の表があるのならテンプレートを分けてコピーして使えるようにはできないでしょうか。テンプレートが増えるのが嫌なら、別ファイルにするなり、非表示にするなり対応方法はあるように思います。 （Mook） 2015/02/16(月) 17:06 ---- Sub 最終行() Dim r As Range Dim i As Long Dim n As Long Set r = Worksheets("テンプレート").Range("A1:F25") n = Worksheets("来月").Cells(Rows.Count, "B").End(xlUp).Row + 1 r.Copy Worksheets("来月").Range("A" & n) For i = 1 To r.Rows.Count Worksheets("来月").Range("A" & n).Offset(i - 1).RowHeight = r.Cells(i, 1).RowHeight Next i Set r = Nothing End Sub 何度もすみません。これでご希望に添えるものになったかと… （とらねこ） 2015/02/17(火) 08:34 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150216132101.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ