- ベストアンサー
(VBAにて)列のセルの結合について
VBAを使って列の結合を行うとしています。 内容は ・A3とA4を結合~A59とA60を結合(60まで) という具合に、セル2つで一つの組み合わせです。 ・これが列単位にA列~Y列まで同じように行おうとしています。 ・一つ一つマクロで記述するとえらい手間がかかるので 簡略するマクロ文は無いでしょうか? ・また、この作業はsheet3で行おうとしています。 内容はsheet1に書かれていまして、 (A4~Y4までが1レコードでA20~Y20まであります。) マクロで普通にsheet3にコピーをすると1レコード目の後に 2レコード目が飛んで3レコード目が次にきてしまいます。 ・これはどうすればよいでしょうか? 素人であまりよく分かりません ご教授宜しくお願いします。
- みんなの回答 (3)
- 専門家の回答
関連するQ&A
- Excel VBA 結合セルがある時に1列だけ選択
A1からD1までの4つのセルが結合されている時に C列をクリックするとC列だけを選択できます。 これをVBAで記述するには どのように記述すればよいでしょうか。 マクロの記録では Columns("C:C").Select というコードが生成されるのですが マクロ記録時にC列だけが選択されていたのに 実行するとAからDの4列が選択されます。 読み込んだファイルを処理するので 結合セルの存在やセルは不定です。 よろしくお願いします。(Windows7,Excel2010)
- ベストアンサー
- Excel(エクセル)
- VBAでの結合セルのコピー&ペースト
こんにちは。 EXCELのVBAでマクロを作成しています。 セルの値のコピー&ペーストを行おうとしているのですが、結合されているセルのペーストのときに、「同じ結合セルが必要です」とエラーになってしまいます。 例えば、A1とA2が結合されたセル+A3をコピー Worksheets(x).Activate Range("A1:A3").Selection Range("A1:A3").Copy 別のシートで、B1とB2が結合されたセル+B3にペースト Worksheets(y).Activate Range("B1:B3").Paste セルの結合を解除すればうまくいきます・・・ セルを結合したままペーストしたいのですが、どうやら間違っているようです(ノ_・。) どなたか教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでセル結合
いつもお世話になっています。 エクセル2003でVBAを使って下記をしたいのでその、VBA構文を教えて下さい。 特定の列のあるセルに文字が入っています。 (文字が入っている列は固定ですが、行番号はデータによって変わります。例えば、Aデータの場合は「J30」、Bデータの場合は、「J55」だったりします。) この文字が入っているセルをVBAで検索し、検索したセルを右隣のセルと結合します。(先ほどのAデータの場合、J30:Z30に結合します。) 更に、文字が入っているセルが2以上の複数の場合があります。(先ほどのAデータの場合、「J30」と「J40」と「J45」という感じです。文字が入っているセルの数はデータにより異なります。) 結合が終わり、このシートのデータがあるところだけに罫線を引きます。(このシートのデータというのは、前述の文字とそれ以外は、「数字」と「・」です。 ややこしいですが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- VBAマクロで結合セルを含む列に列挿入する方法?
お世話になっています。 下記のエクセルVBAマクロで、 列挿入処理をしているのですが、 列に結合セル(行方向)がある場合にだけ、 列選択がうまくできず、 目的と異なる処理をしてしまいます。 ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select Selection.Insert Shift:=xlToRight 新しいマクロの記録で やってみたのですが、 上記マクロが生成されただけでした。 手作業では 列の上のアルファベットを選択して、 列挿入できるので、 何かいい方法があるのは? と思います。 どなたかよろしくお願いします。
- ベストアンサー
- Visual Basic
- VBAで結合されたセルへの貼り付け記述方法
VBAでの記述方法について教えてください。 A1のセルに記載されている内容を結合されたB1~D1セルに貼り付ける場合は どのように記述すればよいでしょうか。 よろしくお願いいたします。
- 締切済み
- Visual Basic
- VBA 結合行を削除したときに値を残したい
以下の様な処理をVBAで行いたいのですが、セルの内容が消えてしまいます。どうすればよいか教えてください A列に商品タイプがあり、B列に商品名が入力されている。 1つの商品タイプは複数の商品があるため、A列は数行単位で結合されている。 今、マクロで特定商品の行だけを別のシートにコピーしたい。 そこで、 シート全体をコピーし コピーしたシート上で該当商品を含まない行を削除 するマクロを作成しました。 しかし、商品タイプの列が結合されているため、商品タイプの1行目を削除してしまうと 新しいシート上でA列が空欄になってしまいます。 該当行のみコピーすることも考えましたが、 商品を抜き出す表以外はそのままコピーする(この方が情報量は多い)ため、上記の方法 を考えました。 何か良い方法はないでしょうか。 よろしくお願い申し上げます
- ベストアンサー
- その他(プログラミング・開発)
- Excel2007のVBAで文字列を結合
Excel2007のマクロで文字列を結合したいのですがうまくいきません。 下記がお題になります 1、セルA1からU1までデータが1つずつ入ってます。 2、1のデータを3列ずつ結合してA3からG3にコピー。 例えば、セルA1あ、B1い、C1う、D1え、E1お、F1か、ならセルA3あいう、セルB3えおか、のようにマクロで一機にできるソースをお願いします。
- ベストアンサー
- Excel(エクセル)
- VBA シート間の単一セルから結合セルへのコピー
マクロについてご教授をお願いします。 ◆実現したい事 2枚のシート(XとY)が存在します。 コピー元:Xシート コピー先:Yシート B列 B列 1行 商品1 コピペ→ 1~3行結合 商品1 2行 商品2 コピペ→ 4~5行結合 商品2 3行 商品3 コピペ→ 6~8行結合 商品3 ・ ・ ・ ・ ・ ・ 最終行 最終行 XシートのB列に1行ずつ、商品名が羅列されています。 YシートのB列には、3行結合(B1:B3)、(B4:B6)、(B7:B9)・・・空白セルがあります。 Xシートの商品名をYシートの結合セルにマクロを使って処理したいです。 ◆試した事 (1)結合を解除し、XからYへ範囲コピーしたが、YのB列に再び、商品毎に2行追加し、結合 2行追加する方法がわからず断念 (2).valueでXシートB1 = YシートB1を試みるができない ◆ここで詰まってます>< Dim X As Worksheet Dim Y As Worksheet Dim 最終行1 As Long Dim 最終行2 As Long Dim cp1 As Long・・・・Yシート行変数 Dim cp2 As Long・・・・Xシート行変数 Set X = Worksheets(1) Set Y = Worksheets(2) 最終行1 = Cells(Rows.Count, 2).End(xlDown).row 最終行2 = Cells(Rows.Count, 2).End(xlDown).row For cp1 = 1 To 最終行1 For cp2 = 1 To 最終行2 Step 3 sh1.Cells(cp1, 2).Copy Destination:= sh2.Cells(cp2, 2) Next Next みたいな感じにできればと、Copyを.valueなどにしてみたりと試してみましたが、 なかなかうまくいかず、3日くらい悩んでいます。 シンプルにやりたいのですが、なにか良い方法などあれば、 ご教授のほどお願い致します><
- ベストアンサー
- Visual Basic
- VBAを使ったセルの結合
パソコンとVBA使用初心者です。 今仕事でVBAを使ってプログラムを作成しようとしています。 皆様にご教授していただきたいことが在ります。 ・ABCDEFGH…… 1あ ア 2 イ 3 ウ 4 エ 5 オ 6い ア 7 イ 8 ウ 9う ア 10え ア 11 イ 12 ウ 13お ア 14 イ 15 わかりにくいかもですが上のようなエクセルがあり A1から次の文字手前のセルまでを結合したいのですが、どのように書いたら出来ますか? それと最後の方のA13とA14だけの結合でその下は処理しない方法ありますか? 必ずC列には文字が入っています。 すいません…カタカナはC列です。 ひらがなはA列に飛び飛びで記入してあります
- 締切済み
- Visual Basic
- 行・列の挿入でセル結合が解除される
エクセルについての質問です。 結合セルを含む表で行や列の挿入をすると、結合していない列や行が挿入されます。 表が足りなくなった場合、行・列のコピー&貼り付けで付け足しているのですが、 表の真ん中あたりで挿入が必要な場合や、頻繁に挿入が必要になったときにとても手間がかかっているように感じてしまいます。 シート上では難しい気はしていますが、表と同じ結合をした行や列を挿入する方法はあるのでしょうか? マクロは初級程度のものしか書けませんが、どうせやるなら効率的にやりたいと思っています。 非常に初歩的な質問ですがよろしくお願いいたします。 エクセルは2003です。
- ベストアンサー
- その他MS Office製品
- 元職場のA先輩とプライベートで交流していたが、パワハラの辛い経験を思い出させる話が苦しくなり、別れを切り出した。
- A先輩は私には頼られたい存在として接し、私は慰める役割を果たしていた。
- A先輩からは連絡があり、引き続き続けたいと言われ、私は切れずに約束することになったが、重い存在感が辛いと感じている。
お礼
返信ありがとうございました。 参考にさせて頂きました。 感謝しております。