![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
EXCEL VBAのプログラミングについて教えてください。
セルA1とセルB1が結合されており、セルには「あいうえお」と入力されています。
入力された「あいうえお」の内、「いうえ」は赤文字+太字を設定したと仮定します。
その結合されたセルの文章と文字色+太字を、結合されていないA3というセルに複写する場合、
下記の様なコードを考えてみましたが、長文になると処理が遅いので知恵を貸してください。
Range("A3").Value = Range("A1").Text
For i = 1 To Len(Range("A1").Text)
Range("A3").Characters(i, 1).Font.Color = Range("A1").Characters(i, 1).Font.Color
Range("A3").Characters(i, 1).Font.Bold = Range("A1").Characters(i, 1).Font.Bold
Next i
よろしくお願いします。
No.3
- 回答日時:
結合されたセルの値やその属性は一番左上のセルの値として保存されていたと思います。
なので
Range("A1").Copy Range("A3")
でいいのでは?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) 条件付き書式でフォント色を赤に設定しましたが、 2 2023/07/29 14:17
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルの表示形式を保ったまま、セルに値を代入するには?
Visual Basic(VBA)
-
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
エクセルへのデータの貼付時に書式が反映されない!
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
Excel 関数を使ってデータと一緒にその書式もコピーしたいのですが・・・
Excel(エクセル)
-
8
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
9
Excel VBA : 文字列の属性も含めて結合する方法
Excel(エクセル)
-
10
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
11
VBA 書式設定を保持したままセル内の文字を追記
Excel(エクセル)
-
12
Excel VBA セル内に設定されたテキストを書式ごとコピー(複数セル)
Excel(エクセル)
-
13
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
14
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
15
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
16
DATE型変数を初期化する方法
Visual Basic(VBA)
-
17
VBA 存在しないシートを選択した時にエラーメッセージを表示するには?
Visual Basic(VBA)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
20
VBAで転記すると元のシートの条件付き書式が消えてしまいます。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
DataGridViewでグリッド内に線...
-
Excel UserForm の表示位置
-
【VBA】写真の貼り付けコードが...
-
HTMLのテーブルのセルの値をPHP...
-
VBA 特定のセルからoffsetされ...
-
マクロのコマンドボタンの位置...
-
VBAで3の倍数の乱数を取得する
-
特定の色のついたセルを削除
-
データのある範囲を選択するVBA...
-
マクロ初心者です。 マクロで範...
-
データグリッドのセルの値を取...
-
エクセルのカーソルを非表示に...
-
構造体を使用したデータの読み書き
-
PasteSpecial Paste:=[********...
-
C# DataGridViewで複数選択した...
-
VBA 日付の引き算
-
VBAについて
-
【Excel VBA】一番右端セルまで...
-
DataGridViewで指定したセルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
Excel UserForm の表示位置
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】一番右端セルまで...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA にて、条件付き書式で背景...
-
特定の色のついたセルを削除
-
【VBA】【ユーザーフォーム_Lis...
-
VBA 複数条件の分岐処理の上手...
-
入力規則のリスト選択
-
【VBA】写真の貼り付けコードが...
-
Excel VBA IF文がうまく動作し...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
関数の引数でrangeを指定したとき
-
複数指定セルの可視セルのみを...
-
DataGridViewでグリッド内に線...
おすすめ情報