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(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
エクセルへのデータの貼付時に書式が反映されない!
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
Excel 関数を使ってデータと一緒にその書式もコピーしたいのですが・・・
Excel(エクセル)
-
8
Excel VBA : 文字列の属性も含めて結合する方法
Excel(エクセル)
-
9
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
10
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
11
VBA 書式設定を保持したままセル内の文字を追記
Excel(エクセル)
-
12
Excel VBA セル内に設定されたテキストを書式ごとコピー(複数セル)
Excel(エクセル)
-
13
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
14
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
15
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
16
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
17
VBA 存在しないシートを選択した時にエラーメッセージを表示するには?
Visual Basic(VBA)
-
18
DATE型変数を初期化する方法
Visual Basic(VBA)
-
19
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
20
VBAで転記すると元のシートの条件付き書式が消えてしまいます。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAコードについて教えてくださ...
-
VBAマクロ実行時エラーの修正に...
-
【Excel VBA】一番右端セルまで...
-
【VBA】写真の貼り付けコードが...
-
Excel UserForm の表示位置
-
特定の色のついたセルを削除
-
エクセルVBA 配列からセルに「...
-
Excel VBAでCheckboxの名前を変...
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】マクロで書き込ん...
-
エクセル VBA ボタンをクリック...
-
下記のマクロの説明(意味)を...
-
VBAでユーザーフォームにセル値...
-
EXCEL VBA 文中の書式ごと複写...
-
DataGridViewのフォーカス遷移...
-
EXCELのフォーム上でリアルタイ...
-
[Excel VBA] このコードでは行...
-
VBA にて、条件付き書式で背景...
-
飛び地セルの空白判定
-
VBA:日付を配列に入れ別セルに...
マンスリーランキングこのカテゴリの人気マンスリー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でグリッド内に線...
おすすめ情報