![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e6f04cf)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_04.png?e6f04cf)
エクセルの書式(フォント、太字、大きさ)を保持したまま、6列の文字列を1列に結合するVBAを作りたいと思っています。
同じような内容のご回答を参考にさせて頂き作成しましたが、以下のものですと1行目はうまく処理されるのですが、2行目以降の書式がずれてしまいます。
2行目以降の参照がダメなのかと思いますが、どう直せばよいか教えて頂けないでしょうか。
テストのため10行までの処理指定をしています。使用エクセルは2016です。
Sub CopyFont10()
Dim i As Long
For i = 1 To 10
Dim a As Range, b As Range, c As Range, d As Range, e As Range, f As Range
Dim z As Variant, k As Integer
Set a = Cells(i, 1)
Set b = Cells(i, 2)
Set c = Cells(i, 3)
Set d = Cells(i, 4)
Set e = Cells(i, 5)
Set f = Cells(i, 6)
With Cells(i, 7)
.Value = a.Value & b.Value & c.Value & d.Value & e.Value & f.Value
For Each z In Array(a, b, c, d, e, f)
With .Characters(k + 1, Len(z.Value) + k + 1).Font
.Bold = z.Font.Bold
.Name = z.Font.Name
.Size = z.Font.Size
End With
k = k + Len(z.Value)
Next
End With
Next i
End Sub
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードで改行すると一行開いて...
-
ワード:右上の小さい文字
-
Powerpointで、コピーすると、...
-
Ctrl+Shift+C、Ctrl+Shift+Vが...
-
エクセルでマイナスの%表示を...
-
縦書き日本語入力で( )をこ...
-
パワーポイントで乗数はどうや...
-
レポート
-
ワードの文字の濃さを揃えたい。
-
【EXCEL2002】「貼り付け先の書...
-
word 背景について
-
wordで縦書きで「あ」に濁点を...
-
CとかRの丸囲い文字、どうや...
-
ワードで文書の空白が消えない
-
Google スプレッドシートを使...
-
英文での借用書書式を教えてく...
-
ワードで文字の上に二重線を引...
-
この、¥1,235って何のお金が払...
-
エクセルの書式を保持したまま...
-
エクセルで奇数または偶数にだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードで改行すると一行開いて...
-
ワード:右上の小さい文字
-
Ctrl+Shift+C、Ctrl+Shift+Vが...
-
エクセルでマイナスの%表示を...
-
Powerpointで、コピーすると、...
-
縦書き日本語入力で( )をこ...
-
エクセル 期日の半年前になる...
-
パワーポイントで乗数はどうや...
-
Google スプレッドシートを使...
-
英文での借用書書式を教えてく...
-
CとかRの丸囲い文字、どうや...
-
レポート
-
ワードで既に使われている色の使用
-
ワードの文字の濃さを揃えたい。
-
【EXCEL2002】「貼り付け先の書...
-
エクセルの文字入力で白抜き文...
-
30代です。遺書を作ろうと思っ...
-
wordで縦書きで「あ」に濁点を...
-
エクセルの機能について
-
wordの表にテキストをペースト...
おすすめ情報
bonaron様からのアドバイスを追記した部分を補足いたします(挿入場所が適切でないかもしれませんがご了承ください)
.Value = a.Value & b.Value & c.Value & d.Value & e.Value & f.Value
k = 0
For Each z In Array(a, b, c, d, e, f)