- ベストアンサー
空白行を取得し、その次の行から２行ずつセルを結合するＶＢＡコードについて
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
サンプルです。 Sub macro() Dim C As Range Set C = Range("A9") Do Until C.Value <> "" Or C.Offset(1).Value <> "" C.Resize(2).Merge Set C = C.Offset(1) Loop End Sub
関連するQ&A
- マクロを使って最終行を取得して、範囲内の空白セルに
マクロを使って最終行を取得して、範囲内の空白セルに指定の文字列を表示させたいです。 お世話になります。 要件としてはタイトルの通りです。 Excel2013を利用しています。 A列を参照して最終行を取得し、 B列の1～最終行までの空白セルに対して「未入力」という文字列を入力したいです。 この場合、考え方はいろいろあるのでしょうが どのようにコードを組めば良いでしょうか？ 自分では、まったく書けていないというのが正直なところです。 そこで御手数ですが、ご協力をお願いいたします。
- ベストアンサー
- Visual Basic
- VBAを使ったセルの結合
パソコンとVBA使用初心者です。 今仕事でVBAを使ってプログラムを作成しようとしています。 皆様にご教授していただきたいことが在ります。 ・ＡＢＣＤＥＦＧＨ…… １あ ア ２ イ ３ ウ ４ エ ５ オ ６い ア ７ イ ８ ウ ９う ア 10え ア 11 イ 12 ウ 13お ア 14 イ 15 わかりにくいかもですが上のようなエクセルがあり Ａ１から次の文字手前のセルまでを結合したいのですが、どのように書いたら出来ますか？ それと最後の方のＡ13とＡ14だけの結合でその下は処理しない方法ありますか？ 必ずＣ列には文字が入っています。 すいません…カタカナはＣ列です。 ひらがなはＡ列に飛び飛びで記入してあります
- 締切済み
- Visual Basic
- ＶＢＡ 行の削除
全くの初心者で、初めて質問させていただきます。 Ａ列には、数字・空白・文字を入力したセルが混在しています。 そのＡ列の数字の内 0 のセルが入力されている行のみを削除するＶＢＡの記述の仕方を教えて下さい。 宜しく御願い致します。
- ベストアンサー
- Windows XP
- マクロ セルを自動的に結合したい
A列～C列に文字がバラバラ入っています。（多くても50行辺りまで） 文字が入っているセルの下に空白がいくつが並んでいます。 次の文字があるまで文字＋空白をまとめて結合したいのです。 力をお借りできないでしょうか？ 宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- Excel2013のVBA最終行取得結合表複数あり
いつもお世話になってます。表複数 Excel2013のVBAで質問です。 A1,A2セルは空欄です。そして、A3：A4は結合されています。その後、A5:A10、A11:A15・・・と結合セルが続いています。そして、A95:A100まで結合セルが続いているとして、A101は合計欄のような単体のセルになっています。 その下は、空白セルが10セル位続いており、またその下にも、上と同じような表があります。 結合セルには、何らかの値が入力されています。最終行のA101には入力されていません。 このようなシートの、上側の表の最終行にあたるA101を取得したいと思っているのですが、下の表の最終行は取得するのですが、上からいくと結合セルがあり思うように取得できないでいます。 何か方法があるでしょうか？
- ベストアンサー
- Excel（エクセル）
- セルの結合
VBAの勉強を始めたばかりの初心者です。 A1、A5 A9・・・・A25までのセルに、それぞれデータが入っていて、データが入っている各セルの下にはデータが入っていない空白の三行を作っています。隣のB列にもデーターはありません。 それをA1からB4、A5からB8・・・A25からB29までのセルを、手作業で結合をしているのですが、今後データが増えていくのでどうしてもVBAで行いたいのです。 ネットで調べてもありそうでなかなかないのでどなたか教えていただければ助かります。 わかりにくい説明ですが宜しくお願いします。 A列 B列 1 ああ 空白 2 空白 空白 3 空白 空白 4 空白 空白 5 ああ 空白 6 空白 空白 7 空白 空白 8 空白 空白 9 ああ 空白 ・ ・
- ベストアンサー
- その他MS Office製品
- セル内に連続して数字を入力するコード
空白行に連続で数字を入れたくて次のようなコードを記述しましたが、入力できません。 sub() Dim i As Integer i = 1 Do While Cells(2 * i + 6, 1).Value = "" Cells(2 * i + 6, "1").Value = i i = i + 1 Loop end sub 対象のセルは8行１列目からでセル自体は２行１列結合されています。
- ベストアンサー
- その他MS Office製品
- セル内文字を切取りその行範囲の列の空白セルに貼付
B列3行目から添付のようにセル内にカンマを含む文字がありカンマで区切った文字ごとに切り取り矢印右のように同B列の次の空白行に順に貼り付けたく、その際カンマは削除したいです。また等間隔の名前の行がある中で枠内の空白に文字を張付けたく等間隔行数枠が多くてできればVBAコードがお分かりなる方宜しくお願いします。 環境はwindows7 office2013です。
- ベストアンサー
- Word（ワード）
- セルが何行なのかをVBAで取得したい
セルが何行なのかをVBAで取得したいのですが どういうコードにすればいいですか？ 例えば、Ａ１セルに a b c と入ってる場合、３行ですが それをVBAで取得するにはどうすればいいですか？ Sub test() Dim r As Range Set r = Cells(1, 1) If r.Value Like "*" & Chr(10) & "*" Then MsgBox "改行があります" End If End Sub というコードで改行が有ることは取得できたのですが 何行かまでは取得する方法がわかりません。
- ベストアンサー
- Excel（エクセル）
- Excel VBA - 空白の結合
以下のようなExcelのシートがあります。 A2からC7を選択した後、マクロを走らせて空白セルを結合したいです。 A B C 1 (空白) DDD (空白) 2 ABC 123 (空白) 3 (空白)(空白)(空白) 4 DEF GHI DEF 5 (空白)(空白)(空白) 6 (空白) 789 123 7 (空白)(空白)(空白) 8 GHI JKL MNO A3はA2と結合、A5,6,7はA4と結合、B列、C列も同様です。 要は、空白セルを上にある値の入ったセルと結合したいのです。 ただ、C2が選択範囲外のC1と結合すると困るので、先頭行の空白は、上の選択範囲外セルと結合しないようにしたいです。C2とC3は、結合しませんが、結合する仕様でも問題ありません。 (A2と同じ値をA3に入れた方がいいという意見があると思いますが、会社の表なので結合しないといけません。) ※以前、似たような質問をしましたが、少し違います。(これは未解決です。)
- ベストアンサー
- オフィス系ソフト
お礼
出来ました。 ありがとうございました。