- ベストアンサー
エクセルＶＢＡで
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。maruru01です。 途中に空白データがないなら、Doループを使用する方法があります。 i = 0 Do Until Len(Cells(i, 1).Value) = 0 '処理 i = i + 1 Loop あとは、データの最終行より下の行には、何も入力がないという場合は、 EndRow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row For i = 1 To EndRow '処理 Next i という感じで出来ます。
関連するQ&A
- VBAの考え方からVisualBasicへ
いつもお世話になっています。 約半年ほど前よりエクセルのVBAを勉強し始めまして 機会がありVisualBasicを覚える事になりました。 会社の先輩が作ったVB6のコードを見ていたのですが やっている事が何となくわかる様なわからない様な・・・ という感じです。。 例えばエクセルでは(A1～A20までのセル)、VBでは同じようにグリッドにデータが入力してあり 選択しているセル(A1)のデータと一致するセルを含む行又はレコードを選択するという処理があったとします。(あくまでも例です) エクセルでもVBでもFor～Nextが使える事はわかったのですが 対象とする目印？的なものの(基準というか考え方というか）が理解出来ないのです・・・・。。 エクセルだとcells(rows.count,1).end(xlup).rowで最終行を取得して For～NextでIf Range("A1").value = cells(i,1).value then・・・ で処理できますがVBではどうなのかとか・・・・ (説明がめちゃくちゃですみません。。泣) 同じようにVBAからVisualBasicを始めた方！ VBAでのプログラミングの考え方とVisualBasicの考え方の違いや どういう風に勉強していけば良いか等、アドバイスや経験談等を教えて頂きたいです。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- VBA 変数を使うべき？
VBA 変数を使うべき？ VBAを独学で勉強中のものです。 エクセルVBAでデータが入っている行数分処理を行いたい場合などに ------------------------------------------------ lastRow = cells(rows.count,1).end(xlup).row for i = 1 to lastRow ・・・ next i ------------------------------------------------ などと最終行を変数に代入して使う場合と ------------------------------------------------ for i = 1 to cells(rows.count,1).end(xlup).row ・・・ next i ------------------------------------------------ などと直接for文の中で指定する場合とでは結果は同じと思うのですが 結果以外の部分で見た場合どちらで行うほうがいいのでしょうか？
- ベストアンサー
- Visual Basic
- Excel VBA 値取得について
お世話になります。 どなたかお力をお貸しください。 Excel2003 VBAでプログラムを組んでおり、エクセルのシートをデータベース代わりに利用しています。 複数のブック散乱している10万個近くのテキストボックスの値を、 「Ａ」というブックの「シート１」のセルに格納して行きたいと思っております。 値の格納方法としては、「Ａ」ブックの「シート１」の セルＡ１からＡ２、Ａ３…Ａ列最終行（6万強）まで縦の並びにデータを格納していきます。 ただし、「シート１」に格納したい値は10万個近くあるので、 Ａ列だけでは足りなくなります。 Ａ列の最終行まで値を格納し終えたら、自動的にＢ列に移動して、 セルＢ１からＢ２、Ｂ３…Ｂ列最終行（6万強）という遷移させていきたいのです。 Ａ列のみに格納していくのであれば、理解できるのですが、 自動遷移がわかりません。 For i = 0 To 最終行（6万強） シート1.Range("A" & i) = 参照元 Next i よろしくお願いします。
- 締切済み
- Visual Basic
- ＶＢＡの配列の格納について
エクセルのＶＢＡで、セルのデータを配列に格納するスピードを向上したいと思います。 例えば、A1～A10000のセルにデータを書き出す場合、 For 行番号 = 1 To 10000 Cells(行番号, 1).Value = 1 Next よりも、一旦、配列に書き込んだ後、一気にセルに書き込んだ方法が早いのですが、 For 行番号 = 1 To 10000 HAIRETU(行番号, 1) = 1 Next Range("A1:A10000").Value = HAIRETU() 今度は、A1～A10000に書き込んだデータを、再度、配列に格納する場合、 For 行番号 = 1 To 10000 HAIRETU(行番号, 1) = Cells(行番号, 1).Value Next とすると時間がかかるので、 HAIRETU() = Range("A1:A10000").Value というような処理をしたいのですが、うまくいきません。 よい方法がありましたら、ご教授ください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAの配列について
エクセルVBAの配列について VBAをはじめたばかりの初心者です。 現在、下記のようにデータを配列の中に入れ、 別シートに書き出そうとしております。 （配列へ読み込むところのみ） Dim 配列(1 To 件数, 1 To 9) As Variant For j =1 To 件数 For i = 2 To L If Cells(i, 2).Value = Tx_month Then For k = 3 To 11 配列(j, k - 2) = Cells(i, k).Value Next k End If Next j,i 現状では、データの最終行のみを「件数」分書き出してしまいます。 ｊとｉのForが重なっているからだと思うのですが、どう書き直したら良いか分かりません。 質問をさせていただくのも初めてなので、分かりづらく恐縮ですが お力添え頂けますと幸いです。 どうぞ宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCELでVBAをつかったコピーの高速化
EXCELのVBAで、A1からA1000まで乱数をセルに書き込むと8秒かかるのですが、これを高速化することが可能でしょうか？ For 行番号 = 1 To 1000 Cells(行番号, 1).Value = Int((10 * Rnd) + 1) Next セルに書き込まずに、1000個の乱数を発生させると1秒もかからないので、8秒のうちのほとんどの時間は、セルへの書込み時間にとられています。 EXCELで列のコピーをした場合は、セルへの書込み時間が早いので、1000個の乱数の結果をいったんメモリに書き込み、列のコピーのように、セルにコピーができれば、高速化が可能かなと思うのですが、VBAでできるのでしょうか？よろしくお願いします。 For 行番号 = 1 To 1000 Int((10 * Rnd) + 1)をメモリに書込み Next メモリの内容をA1:A1000にコピー
- ベストアンサー
- オフィス系ソフト
- エクセルのVBAでFor文がわかりません。
エクセルのVBAで 12列目のセルで縦に９３行あるデータ（数字）を利用し、 まずCells(1,12)のデータを18列目のセルの28～36に貼り付け 次はCells(2,12)のデータを18列目のセルの28+48～36+48に貼り付け その次はCells(3,12)のデータを18列目のセルの28+48*2～36+48*2に貼り付け ・ ・ ・ 最後はCells(93,12)のデータを18列目のセルの28+48*92～36+48*92に貼り付け という具合にFor文を作りたいのですがわかりません。 For文を二つ用いて関数二つあれば出来そうなのですが・・・。 ご教授お願いいたします。
- ベストアンサー
- Visual Basic
- ＥＸＣＥＬ ＶＢＡの書き方
ＥＸＣＥＬ ＶＢＡの初心者です。 ＥＸＣＥＬ２００３を使っています。 数式の中のパラメータの書き方が分からず困っています。 具体的には、単純な計算をR1C1形式の数式を使い、FOR文でループを回そうとしました。 この際、例えば以下のようなＶＢＡを、試行錯誤の結果やっと動くようにはなりましたが、とくに「"」（ダブルクォーテーション）の使い方が理解できていません。 ＮＧだった理由、ＯＫとなった理由を、すみませんがお分かりの方教えていただけないでしょうか。 （ヘルプを読んでも残念ながら理解できる程のレベルを持っていません。） やりたいこと：例えば単純な引き算を複数のセルに、ループをまわして設定したい。 --------------- Sub 質問() Dim i As Integer ' "A1"との差を求めるVBA→ "B2"から"E2"に数式入力 For i = 2 To 5 Cells(2, i).Select ' (1)問題の行→これはＯＫの例 ActiveCell.FormulaR1C1 = "=r[-1]c-r[-1]c[" & 1 - i & "]" Next i End Sub --------------- ' (2)問題の行→実行時エラー'1004' ActiveCell.FormulaR1C1 = "=r[-1]c-r[-1]c[1 - i]" --------------- ' (3)問題の行→コンパイルエラー（構文エラー） ActiveCell.FormulaR1C1 = "=r[-1]c-r[-1]c["1 - i"]" --------------- ' (4)問題の行→コンパイルエラー（構文エラー） ActiveCell.FormulaR1C1 = "=r[-1]c-r[-1]c["&1 - i&"]" ---------------
- ベストアンサー
- オフィス系ソフト
- エクセル VBAについて
はじめて質問するのですが（閲覧もほとんどしていませんでした）、 ネチケット違反等がありましたら申し訳ありません。 エクセルＶＢＡで下記のようなことをしたいのですが、 できずに困っています。 Ａ列で文字が入っているセルを、上から下まで確認し、 『在庫』という文字が入ってるセルの下２行に空白行を入れたく 思っています。 とりあえず自分で作ってみたのは、 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub 行挿入() Dim i As Integer Dim a As String For i = 1 To 1000 Cells(1, i).Value = a If a = "在庫" Then Rows(i + 1).Insert Rows(i + 2).Insert Else End If Next i End Sub ************************************ 初心者で申し訳ないのですが、上記を実行すると、 アプリケーション定義＆オブジェクト定義というエラーが出ます。 何がいけないのでしょうか？ 恐れ入りますが、教えてください。 よろしくお願い致します。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございます。 大変助かりました。