
こんにちわ。
早速ですが質問させてください。
現在、Excelにて書類を作成しております。
作成した書類は原版を取っておき、使いまわす予定です。
書類のある項目欄につきまして、4つの列が結合された項目で、Wordやメールなどからコピー&ペーストします。
しかし、貼り付けると、「文章が長い場合」、あるいは「改行が多い場合」、行の幅が変わらないので1行目以降が途切れてしまい、毎回手動で列の幅を調節しております。
この列の幅の調節をマクロや関数を用いて自動でできないでしょうか。
何卒、ご教授のほど宜しくお願いいたします。
No.6ベストアンサー
- 回答日時:
#2です。
行の高さは1行の高さの行数倍でよいはずなので、
文字列中の改行の個数(末尾は除く)を数えれば
1行しかないと分かっている行の高さに改行の
個数を掛けて求められます。
最後の改行を抜いたのは最下段に空行ができる
ことを防ぐためですが、それも必要ならば、その
処理は飛ばしてください。
プログラム例
Dim 末尾改行削除 As Object
Dim 改行カウント As Object
Dim 単一行の高さ As Double
Function 行高算出(ByVal 文字列 As String) As Double
If 改行カウント Is Nothing Then
'正規表現が作成されていない場合は作成する
Set 末尾改行削除 = CreateObject("VBScript.RegExp")
末尾改行削除.Global = False
末尾改行削除.Pattern = "(\r{0,1}\n)$"
Set 改行カウント = CreateObject("VBScript.RegExp")
改行カウント.Global = True
改行カウント.Pattern = "(\r{0,1}\n)"
'1行と分かっているセルの高さを記録
単一行の高さ = Cells(1,1).RowHeight '★実情に合わせる
End IF
文字列 = 末尾改行削除.Replace(文字列, "")
行高算出 = (改行カウント.Execute(文字列).Count + 1) _
* 単一行の高さ
End Function
(1)正規表現を使って、文字列最後の改行のみ除去します。
標準のReplace関数では「最後だけ除去」ができません。
(2)正規表現を使って、文字列中の改行の集合を作成し、
その個数+1に単一行の高さを掛けて計算しています。
※正規表現は下記URL参照
http://msdn.microsoft.com/ja-jp/library/cc392487 …
【使用例】
高さ = 行高算出(出力文)
Cells(行, 列).RowHeight = 高さ
Cells(行, 列).Value = 出力文
尚、ByValオプションなので、上記出力文の末尾に改行が
ある場合は高さとしては最後の空行は入りません。
但し、データとしては最後の改行は残っています。
No.5
- 回答日時:
意外に過去に似た件で質問紙って居る人が居ます。
Googleで「セル結合AutoFit」で照会すると、高さが調節されないと言う苦情がでてます。
ついでに読んでください。
http://sonic64.com/2005-04-26.html など
マクロも載っている。
===
エクセルのセル結合は色々な処理(特にVBAで)非常に複雑化する。仕様的に発達途中かもしれない。
出来るだけ使わないことだ。
No.4
- 回答日時:
簡易的な手法としては
結合解除→範囲内で中央→AutoFit→再結合
..が使えます。
With Selection
.UnMerge
.VerticalAlignment = xlTop
.HorizontalAlignment = xlCenterAcrossSelection
.WrapText = True
.EntireRow.AutoFit
.Merge across:=True
.HorizontalAlignment = xlLeft
End With
固定範囲の場合は
With Sheets("Sheet1").("A1:D10")
..などと指定すれば良いです。
No.3
- 回答日時:
回答にはなりませんが、見落とす失敗を防ぐなら、以下の姑息な手段でどうでしょう
セルの書式設定⇒配置タブの縮小して全体を表示するにチェックを入れる
文字サイズが変わるのでセル幅を調整する。
結局はプレビューで確認が必要ですが。
No.2
- 回答日時:
結合したセルの場合、AutoFitメソッド、
WrapTextプロパティでの自動調整は
出来ないようです。
高さの調整は見えない所にある結合
されていないセルに内容をコピーして
WrapTexをTrueにした時のRowHeight
プロパティを目的の行の同プロパティに
設定すれば何とかなるでしょう。
幅の場合は同じくお試しセルにある
EntireColumnオブジェクトにAutoFit
メソッドを実行し、ColumnWidthを参照
すれば幅は分かります。しかし、これは
トータルの幅なので、どの列にどの位の
幅を割りふるかが解決できません。
尚、文中に「幅」と出てきますが、「高さ」
と区別されていないような気がします。
幅と高さでは扱うオブジェクト、プロパティ、
メソッドが違いますので、明示的に区別
してください。
この回答への補足
ご指摘ありがとうございます。
すみません、以下のように質問内容を修正します。
しかし、貼り付けると、「文章が長い場合」、あるいは「改行が多い場合」、行の<高さ>が変わらないので1行目以降が途切れてしまい、毎回手動で<行>の<高さ>を調節しております。
この<行>の<高さ>の調節をマクロや関数を用いて自動でできないでしょうか。
ご解答ありがとうございます。
なるほど、やはり、別の箇所へ貼り付けて行高さを参照する方法が良いでしょうか・・・。
列の結合は固定のため、別の箇所の列幅を予め合わせておけば問題なさそうですので、試してみます。

No.1
- 回答日時:
Sub a()
Columns("a:z").AutoFit
rows(1:50).autofit
End Sub
columns の使い方はa-zの列の幅 調節
rows の使い方は行の高さ 調節
ご解答ありがとうございます。
早速試してみましたが、申し訳ありません、調節できませんでした。
恐らく、セルが結合されているためと思われるのですが、単に理解していないだけかもしれません。
列A,B,Cが結合されている(A,1)セルの幅を調整する場合、rows("1:1").autofitで良いのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Excel(エクセル) 判定結果に応じて〇印(図形)をつけるマクロ 4 2022/10/30 11:22
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/12/26 12:05
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
エクセル「折り返して全体を表示」での折り返しの行数取得方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Chr(13)とChr(10)の違いは?
-
Word 途中で勝手に改行してしま...
-
wordで均等割り付けをするとき...
-
PDFの改行URLを有効にす...
-
バッチで指定ファイルの文末に...
-
Tera Term のマクロでの改行コ...
-
履歴書の志望動機の所で、「ま...
-
【エクセル】セル最後にある無...
-
EXCEL(VBA) 末尾の改行のみ削...
-
エクセルでセル内改行の複数行...
-
パワーポイントのテキストボックス
-
Access2003で特定列の改行コー...
-
Excel セル内の最初と最後の改...
-
棒グラフ 横軸の縦書き2列にし...
-
短歌が1行で収まらない場合、...
-
Excel、VBA、1行中複数セルに...
-
VBA フォームのテキストボック...
-
さくらエディタと秀丸との正規...
-
いつも、LINEとかで変なところ...
-
EXCELで"-"で勝手に自動改行し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Chr(13)とChr(10)の違いは?
-
Word 途中で勝手に改行してしま...
-
wordで均等割り付けをするとき...
-
PDFの改行URLを有効にす...
-
【エクセル】セル最後にある無...
-
履歴書の志望動機の所で、「ま...
-
棒グラフ 横軸の縦書き2列にし...
-
Excel セル内の最初と最後の改...
-
パワーポイントのテキストボックス
-
excelで勝手に改行されます
-
Tera Term のマクロでの改行コ...
-
VBA フォームのテキストボック...
-
エクセルでセル内改行の複数行...
-
短歌が1行で収まらない場合、...
-
バッチで指定ファイルの文末に...
-
Texに関する質問(文章中の数式...
-
イミディエイトウインドウの最...
-
Excel VBAで改行を含めたセルの...
-
WordにURLを載せると
-
PCに表示された内容(文字)をコ...
おすすめ情報