- ベストアンサー
VBA
kimitsjinの回答
- kimitsjin
- ベストアンサー率36% (4/11)
No.1 papayuka さん, No.2 matrix4 さんの 回答の補足（？）です。 まったく好みの問題ですが、 セルや範囲の参照はR1C1形式の方が すっきりする場合もあるかもしれません。 特に列方向にループする処理では楽だと思います。 使う使わないは別にして こんな書き方もあることを知っておいても 損は無いと思います。 Cells(行No,列No) Range(左上セル,右下セル) 例えば B5セルは Cells(5,2) B5～E8の範囲は Range(Cells(5,2),Cells(8,5)) No.1 papayuka さんのプログラムをこの形式で書くと 以下のような感じです。 Sub Test1() Dim i As Long i = 2 Do While Cells(i,1) <> "" Cells(i,3) = Cells(i,1) + Cells(i,2) i = i + 1 Loop End Sub Sub Test2() Dim i As Long For i = 2 To Range("A65536").End(xlUp).Row Cells(i,3) = Cells(i,1) + Cells(i,2) Next i End Sub
関連するQ&A
- VBAの構文で教えてください
VBAの繰り返し処理 Do Until ～について教えてください。 シートの行列を全て書いてしまうと長くなるので 少し省略させていただきます。 A B C D １ 2008 1 ○ 2008 ２ 2008 2 × 2008 このような羅列がデータ検索の際に何行になるかわからない状態のデータがあります。 C 列はBが１の場合○、２の場合は× D 列はAが数字があればそのままコピーするようにくみました。 ここで教えていただきたいのが、現在私はCとDの構文は AまたはBに数字があればC,Dに反映するという構文ではなく C、Dの列の最後まで全て数式を入力する構文にしています。 なので、A,Bに入力があってもなくても数式が飛ぶような構文になっています。 そこで、DO Until ～ を使用し A列が空白になるまで処理を繰り返すとすればいいのかなとおもうのですが、 Dim n as integer n=1 Do Until Sheets("sheet1").Cells(n, 1) = "" 空白までという構文（正しいかはわかりませんが）で行き詰っています。 これ以降のAが空白ならDに貼り付ける、 B列も同様に空白まで検索し○または×に置き換えるとは どのうように組み立てたらいいのでしょうか？ また、申し訳ないのですが Cが×ならその列の背景を色づける（今回の場合なら２の列） とことまでしてみたいのですが・・・ このようなことが可能であれば教えていただければと思います。 VBAははじめたばかりで不勉強な点も多々ありますがよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 2重のDo～Loopは？
Excel VBAですが、A列にデータが入っています。 A列のデータが変わるまで 処理1 を実行し、変われば 処理2 を実行する。データがなくなれば終了する方法が分りません。宜しくお願いします。 i = 2 Do Until Cells(i, 1) = "" Do Until Cells(i, 1) <> Cells(i - 1, 1) 処理1 Loop 処理2 Loop
- ベストアンサー
- Visual Basic
- 【VB】セルが空になるまで処理を繰り返したい
Excel VBAを使用してです。 列Ａにデータがずらっと入っています。 そのデータを列Ｂに、 Do while ～loop か Do until ～loopを使って データが無くなるまでコピーするという処理を書きたいのです。 VB歴が浅いためひらめきません。よろしくお願いします。m(__)m
- ベストアンサー
- Visual Basic
- エクセルVBAについて質問です。
現在、マクロで重複データを削除する処理しています。 一応動作はするのですが、すごく遅いです。 およそ私のPC（XPのQuadコア）で1行処理するのに約0.85秒かかっています。 データが1万行以上もあるようなときは、何時間もかかってしまいます。 エクセルのデータは、以下のように、 A列とB列に文字列が何行にも渡って入っているものです。 A列 B列 AAA BBB CCC DDD EEE FFF GGG BBB CCC HHH CCC DDD （以下同様） 上のようなシートで、A列とB列の両方について重複する行を削除したいと思っています。 上記例だと、一番最後の「CCC-DDD」の箇所を削除したいです。 そこで以下のようなマクロを組みました。 (1)はじめに重複をチェックする変数（A列・B列）を取得します。 (2)上から順にチェックを開始します。 (3)A列・B列双方が取得した変数と一緒なら重複カウンターに1を加える。 （1回目の出現では削除しない） (4)チェックを続け、重複カウンターが2以上になった行は削除する。 (5)上記を空白行まで繰り返す。 というような流れです。 （マクロ記述の途中部分からです） '重複する行を削除 counter3 = 1 Do search_word1 = Cells(counter3, 1).Value search_word2 = Cells(counter3, 2).Value counter4 = 1 double_counter = 0 Do If Cells(counter4, 1).Value = search_word1 And Cells(counter4, 2).Value = search_word2 Then double_counter = double_counter + 1 If double_counter > 1 Then '二度以上出現した場合から削除する Cells(counter4, 1).EntireRow.Delete counter4 = counter4 - 1 End If End If counter4 = counter4 + 1 Loop Until Cells(counter4, 1).Value = "" counter3 = counter3 + 1 Loop Until Cells(counter3, 1) = "" 初心者なのもので、冗長や不適切な箇所などあるかと思います。 より効率的、あるいは、より早くできる書き方がありましたら、 ぜひともお教え下さい・よろしくお願いします。
- ベストアンサー
- Visual Basic
- VBAの記述がわかりません
エクセル２０１０を使用してるのですが A列に不規則な空白がある数字があります。 B列にA列の空白を除いた数字を上から詰めて表示させたいのですが VBAの記述がわかりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA のDo Until Loopについて
こんばんは Excel VBAの初心者です。 Do Until Loopを使って B列の値が変わるところ（下記の表だと、空白からコスモスに変わる、4行目。コスモスからチューリップに変わる6行目。チューリップから菊に変わる8行目。）に行を挿入させたいと思い、下記のマクロを組んだのですが、Do Until Loopが理解できませんでした。 どうしたら良いのか教えて頂けないでしょうか。 宜しくお願い致します。 Excelのシート B1 項目 B2 空白 B3 空白 B4 コスモス B5 コスモス B6 チューリップ B7 チューリップ B8 菊 Sub 行の挿入() Dim y As String Cells(2, 2).Select y = Cells(2, 2).Value Do Until Cells(2, 2).Value <> y ActiveCell.Offset(1).Select Selection.EntireRow.Select Selection.Insert shift:=xlDown Loop End Sub
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBAで質問です。
エクセルVBAで質問です。 A列 B列 AAAA 1111 BBBB 2222 CCCC 3333 とあります。 上記を AAAA （空白） （空白） 1111 （空白） BBBB （空白） （空白） 2222 （空白） CCCC （空白） （空白） 3333 （空白） A列にB列を挿入し、2・3・5行目に空白のセルを入れていきたいのです。 9000行ぐらいあります。 他の列に A列、B列のものを取得していく形でも構いません。 とにかく、縦1列に並べたいです。 どなたか、ご教授お願い致します。
- ベストアンサー
- Visual Basic
- ＶＢＡと罫線の作成
こんにちは。 ＶＢＡ勉強中で初心者です。 今、以下の上段画像のような表をエクセル2003 で作成しました。 下段画像はＶＢＡ実行後の表です。 表は 番号と氏名、合否の結果を入力した ものです。 今、行いたい処理なのですが (1) Ｂ列の氏名欄に対応する、連番を Ａ列に表示したい。 (2) さらに、氏名欄が入っている部分を Ａ列からＤ列まですべてを罫線（普通線） で囲みたい。 の2点です。 (1)はなんとかできたみたいのですが、 (2)で完全に手が止まってしまいました。 最終の行と列の取得が、すこしわからないので 教えていただければと思います。 よろしくお願いします。 Sub sample() Dim num As Integer '行変数を設定 Dim num2 As Integer '番号変数を設定 Dim i As Long 最終行の取得？ num = 4 'Ｂ列4行目から調べる num2 = 1 '連番は「1」からスタート Range("A:a").Clear 'Ａ列のデータをいったんクリアにする Do Until Cells(num, 2) = "" 'Ｂ列の氏名欄が空白なるまで処理を繰り返す Cells(num, 1) = num2 '連番「1」をＢ4にまず、代入する num = num + 1 '行を1行分下げる num2 = num2 + 1 '番号変数に1をプラスする Loop i = Range("B4").End(xlDown).Row End Sub
- ベストアンサー
- オフィス系ソフト
- アクセスＶＢＡでデータを検索したいのですが、
アクセスＶＢＡでデータを検索したいのですが、 エクセルＶＢＡのcells(i,1)にあたるようなものはないでしょうか。 添付画像のような信号を抽出したいので、立ち上がりの部分をさがしたいのですが。 ご存知のかた教えてください。 i=1 Do until cells(i,1)>=4 i=i+1 Loop 開始レコード=i データテーブルの1列目は行番号、2列目は信号が入っています。
- ベストアンサー
- オフィス系ソフト
- Excel VBAでデータを自動処理したい
Excelで大量のデータ処理をしなくてはならないのですが、以下の処理をExcel VBAで自動処理できないでしょうか？ どなたかお知恵をお貸しください。 (1)A、B、C列からなるリストがあります。A,B列にはそれぞれオートフィルタが設定してあり、C列は空白です。A列、B列にそれぞれ条件を設定し、抽出したデータのC列（空白）に特定のデータを入力します。A列、B列2つの条件の組み合わせが100通りくらいあり、現在手動でオートフィルタを設定し、C列にデータを入力しております。例えばA,B列の条件の組み合わせと、それに対応するC列に入力するデータを表にしたテーブルを別に作り、A,B列の条件を自動に設定して、抽出し、C列にデータを自動に入力することを、テーブルの一番上の行から最後の行まで繰り返す、というようなことをVBAでExcelにしてもらいたいのです。自分でちゃんと勉強し、調べて、それでも分からなかったらお聞きするというのが筋だと思うのですが、今この仕事に追われて、時間がありません。（ほとんど毎日午前様です。）この仕事が片付いたら、じっくりVBAを勉強したいと思っております。どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
初心者にやさしい説明ありがとうございます。とても参考になりました。(>_<)