ＶＢＡでFor Next構文を使ったデータ入力方法

前へ 次へ
このQ&Aのポイント
  • ＶＢＡを使用して、シート「テスト」にシート「Sheet1」のデータを入力する方法を説明します。
  • ループ処理を使用して、テストシートの特定のセルにSheet1のデータを入力します。列番号を増やしながら行番号も増えていくため、特定のセルへのデータ入力方法に注意が必要です。
  • ループ処理の中で、テストシートのセルとSheet1のセルの位置関係を考慮し、データを正しい位置に入力します。
回答を見る
  • ベストアンサー

For Next構文を使ったＶＢＡ

こんにちは、ＶＢＡについて質問をさせてください！(>_<) 同じブックにシート「テスト」と「Sheet1」があり、「テスト」にはデータの入力欄、「Sheet1」には「テスト」に入力するためのデータが入っています。「テスト」の入力欄は「Sheet1」のデータの並び順と同じですが、入力したデータ同士に４行３列ずつデータを入力しないセルを作らなくてはなりません。 また、データを入力するセルは「テスト」の５列目８行目＝「Sheet1」３列目２行目～「テスト」の２０列目８行目＝「Sheet1」８列目２行目のように、まず列番号を増やし、列番号が最大になったら行番号が増え、列番号はまた初期値から増えます。したがって、次は「テスト」の５列目９行目＝「Sheet1」の３列目３行目～「テスト」の２０列目９行目＝「Sheet1」の８列目３行目になります。 上記を踏まえてＶＢＡを作成してみたのですが、このままではi,j,k,l全ての値がNextで増えてしまいます。Ifを使ったりするのかと色々ネットで調べて考えてみましたが、行き詰まってしまいました。どなたかご教授いただけるととても嬉しいです。説明が長く申し訳ないです、わかりづらければ補足させていただくので、おっしゃってください！ Dim i, j, k, l As Integer For i = 5 To 20 Step 3　'シート「テスト」の列 For j = 8 To 116 Step 4　'シート「テスト」の行 For k = 3 To 8　'シート「Sheet1」の列 For l = 2 To 39　'シート「Sheet1」の行 Cells(j, i).Value = Sheets("Sheet1").Cells(l, k).Value Next l Next k Next j Next i

質問者が選んだベストアンサー

  • ベストアンサー
  • f272
  • ベストアンサー率46% (8019/17139)
回答No.2

> 列を最大値まで増やしてから次の行 それなら For l = 2 To 39　'シート「Sheet1」の行 For k = 3 To 8　'シート「Sheet1」の列 Sheets("テスト").Cells(l*4, k*3-4).Value = Sheets("Sheet1").Cells(l, k).Value Next k Next l > 行も列も一緒にNextで増えてしまうような気がする 一緒に(同時に)増えることはありません。

osashi
質問者

お礼

おおおお！ありがとうございます！！できました！！お返事が遅れて大変申し訳なかったです、ベストアンサーに選択させていただきますね！！^_^

その他の回答 (1)

  • f272
  • ベストアンサー率46% (8019/17139)
回答No.1

やりたいことがよくわからんが，こういうこと？ For k = 3 To 8　'シート「Sheet1」の列 For l = 2 To 39　'シート「Sheet1」の行 Sheets("テスト").Cells(l*4, k*3-4).Value = Sheets("Sheet1").Cells(l, k).Value Next l Next k

osashi
質問者

補足

ご回答いただいてありがとうございます！！分かりづらくて申し訳ありません！m(_ _)m列を最大値まで増やしてから次の行…という処理にしたいので、この記述ですとやはり行も列も一緒にNextで増えてしまうような気がするのですが、どうしたらよいでしょうか・・・！？(T_T)

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • VBA For～Next　

    「wsData」の値を「wsInv」の指定セル(=●●●＝16)から４つおきに処理したい。 01：Cells(16 + i * 4, 1)　とすると「i」が大きいときに 　　「""」があると16からスタートしない 02：「For k = 0 To 50」を作成したが、何処に入れても上手く処理出来ない。 For i = 0 To 50 '行 For j = 6 To 28 '列 If wsData.Cells(10 + i, 3).Value = "" Then wsInv.Cells(●●●, 1).Value = wsData.Cells(10 + i, 1).Value wsInv.Cells(●●●, j - 2).Value = wsData.Cells(10 + i, 23 + j).Value End If Next j Next i お力添えをお願いいたします。

  • EXCEL VBAのFor...Nextについて

    VBA初心者です。よく理解していませんので、質問も的を得ていないかもしれませんが、ご指導宜しくお願いいたします。　 現在、For...Ｎｅｘｔを使った表計算をしています。 A列に「す」という文字が含まれていたら、B列の「す」の行に「あ」と「い」と「え」「か」のセルの合計をだす。C列、D列・・・最終列まで計算する。 上記VBAを作成する方法を教えて下さい。 A　　B　　C　　D　　E　　　F　　G　　H　　I　　J　　K　　L 1 2 　　 3 　　 4 　 5 　　 6 　　 7 　　 8 　　 9 　　 10 　　 11 12 あ　 1 2 3 4 　 5 6 7 8 9 10 11 い 10 20 30 40 　50 60 70 80 90 100 110 う 20 30 40 50 　 60 70 80 90 100 110 120 え　40 50 　 60 　70 80 90 　10 20 120 130　30 お　50 60 　 70 　80 90 10 　20 30 130 140　40 か　60 70 　 80 　90 10 20 　30 40 140 150　50 す 私は表に１～12まで数字をインプットし下記のようなコードを考えました。 Sub 列合計() Dim i, k, l, m, n As Long j = 2 For i = 6 To 120 For k = 6 To 120 For l = 6 To 120 For m = 6 To 120 For n = 6 To 120 If Cells(i, 1) = "す" And Cells(k, 1) = "あ" And Cells(l, 1) = "い" And Cells(m, 1) = "え" And Cells(n, 1) = "か" Then Do While j <= Range("A2").End(xlToRight) Cells(i, j) = Cells(k, j) + Cells(l, j) + Cells(m, j) + Cells(n, j) j = j + 1 Loop Else: End If Next n Next m Next l Next k Next i End Sub この内容だとエラーが出てしまいます。 補足ですが、あいうえおかの順番はかわったり、間に他の行が入ったりします。 また今回はL列の間としましたが、もっと列が増え、最終列まで計算する方法を知りたいのですが、どうぞ宜しくお願い致します。 ※ofice2013です。

  • マクロ for～next うまくいかない

    シート内の値を並び替えて、別シートに貼り付けるコード作成中。 ①偶数行の値を奇数行の特定の列に貼り付け、元の値は消す ②(2)と書かれたセルがある場合、その行をコピーして同一行に挿入し、(2)の値は消す この2つが機能しません。 ほか部分は動きます。 これが機能しない原因、分かるでしょうか。 以下、コード Private Sub CommandButton6_Click() Dim i As Long For i = 1 To 9 If Me.Controls("TextBox" & CStr(i)).Value = "" Then 'ユーザーフォーム内のテキスト1～9で空欄があると以下の操作 MsgBox Me.Controls("Label" & CStr(i)).Caption & " が未記入です" '空欄があると、ラベル名＋が未記入ですのメッセージ後、処理終了 Exit Sub End If Next Dim Convert_book As String, GC_book As String, GC_address As String Convert_book = TextBox8.Value '変換シートのブック名を取得 GC_book = TextBox7.Value 'ブックAの名前を取得 GC_address = TextBox6.Value 'ブックAの保存先を取得 With Workbooks(GC_book).Worksheets(ws_name) 'ブックAシート1をWithとする。 　 .Range("A1:CZ200").UnMerge 'ブックAシート1の結合を解く '部品番号と客先コードをコピー .Range(Cells(Range(Parts_no).Row, Range(Parts_no).Column), _ Cells(Range(Parts_no).Row + 1, Range(Parts_no).Column)).Copy '変換シートに貼付けWorkbooks(Convert_book).Worksheets(1).Range("G4").PasteSpecial Paste:=xlPasteValues '管理№をコピー、変換シートに貼付け .Range(Control_no).Copy Workbooks(Convert_book).Worksheets(1).Range("AJ2").PasteSpecial Paste:=xlPasteValues Dim r As Long, r1 As Long, c As Long, c1 As Long, c2 As Long, c3 As Long '管理№の行と列を取得 r = .Range(Control_no).Row c = .Range(Control_no).Column '材料関連の情報のコピーと貼付け .Range(.Cells(r + 2, c - 4), .Cells(r + 3, Last_column - 1)).Copy Workbooks(Convert_book).Worksheets(1).Range("AF4").PasteSpecial Paste:=xlPasteValues '変数に、加工工程№の行と列を入れる。変更年月日の行、測定具の列、管理№の列も入れる。 r = .Range(Process_no).Row '可変 r1 = .Range(Rev_no).Row '可変 c = .Range(Process_no).Column '32または33列目 c1 = .Range(Tool_name).Column '27または28列目 c2 = Last_column '44または43列目 c3 = .Range(Control_no).Column '通常1列目 .Range(Cells(r, c2), Cells(r1 - 2, c2)).Clear '最終列をすべてクリア Dim k As Long, j As Long k = 1 '最終列に1、2、1、……繰返し数を入れる For i = r To r1 - 2 If k = 1 Then .Cells(i, c2).Value = 1 k = k + 1 Else .Cells(i, c2).Value = 2 k = k - 1 End If Next Dim i1 As Long, k1 As Long, j1 As Long k1 = 1 '管理値の欄で偶数列の値を奇数列に移す For i1 = r To r1 - 2 If .Cells(i1, c2).Value = 2 Then For j1 = c3 + 18 To c1 - 1 If .Cells(i1, j1).Value <> "" Then .Cells(i1 - 1, c3 + 25) = .Cells(i1, j1).Value .Cells(i1, j1).Value = "" End If Next j1 End If Next i1 Dim i2 As Long, k2 As Long, j2 As Long k2 = 1 '"(2)"と書いてある行を2行に増やして、"(2)"を消す For i2 = r To r1 - 2 If .Cells(i2, c2).Value = 1 Then For j2 = c3 + 18 To c1 - 1 If .Cells(i2, j2).Value Like "*(2)*" Then .Cells(i2, j2).Formula = Replace(Cells(i2, j2).Formula, "(2)", "") .Range(Cells(i2, 1), Cells(i2, c2)).Copy .Range(Cells(i2, 1), Cells(i2, c2)).Insert xlShiftToRight End If Next j2 End If Next i2 '最終列の番号順に並べる .Range(Cells(r, 1), Cells(r1 - 2, c2)).Sort _ key1:=Cells(r, c2), order1:=xlAscending End With ～～(この間はまだ未作成)～～ Application.DisplayAlerts = False Workbooks(GC_book).Close SaveChanges:=False Application.DisplayAlerts = True End Sub

  • excel VBA For ～Next構文について

    excel VBA For ～Next構文についての質問です。 以下のようなマクロがあります（実際はもう少し複雑なことをやっていますが） 　　　　For i = 4 To 178 　　　　　Cells(i, 16).FormulaR1C1 = "=RC[-2]-'" & Lm & "'!RC[-2]" 　　　 Next i これに「もし、『Cells(i, 1)』が空白なら、この処理は行わずに、次の行にすすめ」という指示を加えたいのですが、こんな簡単なこと(?)で行き詰ってしまっています。 とりあえず以下のように修正をしてみたのですが・・・ 　　 For i = 4 To 178 　　 If Cells(i, 1) = "" Then GoTo ワープ: 　　 Cells(i, 16).FormulaR1C1 = "=RC[-2]-'" & Lm & "'!RC[-2]" 　　 ワープ: 　 Next i 　これで一応こちらの求めている処理はできたのですが、もっと簡単に（もしくはすっきりと） できる方法はないでしょうか？ 　以上、よろしくお願いいたします。　 　

  • 【Excel VBA】データの最終行について

    Excel2003を使用しています。 ある一覧表形式のデータSheet1をSheet2に値のみコピーして、このSheet2を“印刷用”として、ページ設定等をして、印刷のみに使用しようと思っています。 Sheet2のI列、J列、K列には数値が入力されていて、I列、J列、K列のデータの最終行の1行下に、それぞれ6行目からデータ最終行までの合計の数式が入力されるよう、コードを追加したのですが、数式は入力されるものの、入力したい行に数式が入力されません。 マクロを実行して、数式が入力された行を見てみると、301行目に入力されていました。 Sheet1は別のシートのデータを数式により表示していて、数式が300行まで入力されているので、Sheet2の元になっているSheet1の影響(？)なのかな～？と…。こういう場合、どうすればいいでしょうか？ コードは下記のようになっています。 よろしくお願いします。 ---------------------------------------- Sub 印刷用作成() Dim i As Integer Dim j As Long Sheets("Sheet1").Activate Range("B6:L6", Range("L6").End(xlDown)).Select Selection.Copy Sheets("Sheet2").Select Range("B6").PasteSpecial xlPasteValues Application.CutCopyMode = False For i = 9 To 11 j = Application.Max(j, Cells(65536, i).End(xlUp).Row + 1) Next For i = 9 To 11 Cells(j, i).FormulaR1C1 = "=SUM(R2C[0]:R[-1]C[0])" Next i End Sub

  • エクセル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が重なっているからだと思うのですが、どう書き直したら良いか分かりません。 質問をさせていただくのも初めてなので、分かりづらく恐縮ですが お力添え頂けますと幸いです。 どうぞ宜しくお願い致します。

  • For Next構文について

    こんにちは、For Next構文について質問させてください。 F列に０～５の数字が入ったデータがあります。（データが入っているのは AG列までです。F列以外には数字以外に色々データが入っており、A列は空白です。） このデータをF列０～５でオートフィルタをして、Ａ列にそれぞれの数字ごとに 連番を振りたいのですが、どう頑張っても０～５まで連番で番号が振られてしま います。（やりたいのは、数字の０のデータが終わったら次は１のデータでまた 「１」から、１のデータが終わったら次は２のデータで「１」から番号を振るという作業です。） 色々試行錯誤して、一番下の値になったら１の値に戻るとしてみましたが、だめでした…。（If Cells(ビスケット, 3) = スパゲティ Then　和菓子 = 1の部分です。） どなたか、どの記述が悪いのか、ご教授いただけると嬉しいです！よろしくお願いいたします！(T_T) Dim マシュマロ As Integer Dim 和菓子 As Integer Dim ビスケット As Long Dim スパゲティ As String For マシュマロ = 0 To 5 Range("A2:AG" & Cells(1).CurrentRegion.Rows.Count).AutoFilter Field:=6, Criteria1:=マシュマロ スパゲティ = Range("C1").End(xlDown).Value 和菓子 = 1 For ビスケット = 2 To Range("A2").End(xlDown).Row If Cells(ビスケット, 3) <> "" Then Cells(ビスケット, 1) = 和菓子 和菓子 = 和菓子 + 1 End If If Cells(ビスケット, 3) = スパゲティ Then 和菓子 = 1 End If Next Next マシュマロ

  • VBAプログラミングの質問です。

    Sheet1の第２列に行番号、４列に列番号、５列にそこの値が書かれたデータが並んでいます。 1 1 967 2 1 687 ……… x y 802 ……… x行、y列に802を代入するという感じです。全部で57985データあります。 前の回答を参考にして、48881データまではSheet2に For k = 1 To 48881 Worksheets("Sheet2").Cells(1 + Worksheets("Sheet1").Cells(k, 2), 1 + Worksheets("Sheet1").Cells(k, 4)) = Worksheets("Sheet1").Cells(k, 5) Next k このようにプログラムを書いて納まって、残りの57985-48881=9104データの行列はSheet2に納まらなかったので、Sheet3に書こうと思い、下のように書きましたがプログラムがうまく動きませんでした。他にも試しましたが初心者のためダメでした。 Dim n As Long Dim m As Long n = 9104 m = 48881 For k = 1 To n Worksheets("Sheet3").Cells(1 + Worksheets("Sheet1").Cells(k + m, 2), 1 + Worksheets("Sheet1").Cells(k + m, 4)) = Worksheets("Sheet1").Cells(k + m, 5) Next k 48881というのが大きいため動かないと考えられますが、どのように対処したらよいかわかりません。教えてください。お願いします。

  • VBA For To Next 文でComboBoxを指定？

    VBAでお世話になっています。 UserForm上のComboBox1～30の各値を元に Sheet2上のデータをSheet4上に貼り付けるVBAを組んであります。 ComboBox1の値を元に行なう作業(VBA)とComboBox30を元に行なう作業は同じなのですが、 但し記述は50行程×30あるので全記述をすると60ｋを超えてエラーになります。 　ですので i = 0 For a = 1 To 30 従業員番号 = UserForm1.ComboBox a.Text + 10 'ここでエラー .CombBox a 反転表示 With Sheet4 .Cells(15 + i, 3).Value = Sheet2.Cells(従業員番号, 1).Value .Cells(17 + i, 3).Value = Sheet2.Cells(従業員番号, 2).Value .Cells(16 + i, 6).Value = Sheet2.Cells(従業員番号, 3).Value 　　　　・ 　　　　・ 　　　　・ End with i=i+4 Next a としたら、「コンパイルエラー　メソッド・データメンバが見つかりません」が返ります。 ComboBoxの番号を指定しないとわからんわい、との事と思います。 (a) "a" _a としてもだめですし、cmd=CombBox+aを足してみたら cmd=1になるし、 cmd="CombBox"+a は「型が一致しない」エラー・・・等々 なんとかCombBoxの1～30をFor文でループしたいのです。ご教授をお願いします。

  • for～Next 構文の間に処理を追加したい。

    for～Next 構文の間に処理を追加したい。 ちょっと必要に迫られまして、他人の作ったEXCELマクロをいじらないといけなくなったのですが、小生初心者でどうもうまくいきません。 sheet1に条件を入れて、sheet2のセルに表示された内容をラベルに印刷するというプログラムなのですが、 PrintColum = Worksheets("sheet1").Range("L5").Value MaxGyou = Worksheets("sheet1").Range("L4").Value Maxrow = Worksheets("sheet1").Range("B" & Rows.Count).End(xlUp).Row Gyou = 1 + Worksheets("sheet1").Range("A3").Value Keta = 1 Worksheets("sheet2").Activate For k = 5 To Maxrow Hiduke = Worksheets("sheet1").Range("A" & k).Value ID = Worksheets("sheet1").Range("B" & k).Value Koumoku = Worksheets("sheet1").Range("C" & k).Value Kishaku_Min = Worksheets("sheet1").Range("D" & k).Value Kishaku_Max = Worksheets("sheet1").Range("E" & k).Value Maisu = Worksheets("sheet1").Range("F" & k).Value blank = Worksheets("sheet1").Range("G" & k).Value For i = Kishaku_Max To Kishaku_Min Step -1 For j = 1 To Maisu Keta = Keta + 1 Worksheets("sheet2").Range("A1").Cells(Gyou, Keta + 1).Value = " " & Hiduke & " " & ID & Chr(10) & " " & Koumoku + " 10^" + CStr(i) GyouHyouji = Worksheets("sheet2").Range("A1").Cells(Gyou, 1).Row Worksheets("sheet2").Range("A1").Cells(Gyou, 1).Value = (GyouHyouji - 1) Mod MaxGyou + 1 If Keta > PrintColum Then Keta = 1 Gyou = Gyou + 1 End If Next j Next i Next k Next i　の処理が終了したとき、blankの値が"1"なら、ひとつだけ内容の違うセルを差し込みたいと考えています。 わかる範囲でいろいろ試したのですが、まったくうまくいきません。 どなたかお知恵を拝借できないでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する