マクロ初心者です。
For文で、変数を2つ定義し、それぞれが1つずつ増えてくれるような
マクロを組みたいのですが、うまくいきません。
例えばA列の並んだ数字を、B列に一個とばしで入力するとして・・・
例)
Dim i As Integer
Dim j As Integer
For j = 2 To 10 Step 2
For i = 1 To 9
Cells(j, 2).Value = Cells(i, 1).Value
Next i, j
ではだめですよね。iが1つ増える時に、jも1つ増える、
というようにVBAを組むことが可能なのでしょうか?
ど素人な質問ですみませんが、教えてください。
No.3ベストアンサー
- 回答日時:
> A9の値→B85に といった具合なんです。
A9の値は、B50 と思いますが ?
データがもっとあった場合、A16の値が、B85では ?
1つの変数の場合
Sub test()
Dim Rw As Long
For Rw = 1 To 9
Cells(Rw * 5 + 5, 2).Value = Cells(Rw, 1).Value
Next
End Sub
普通は、変数 2つで
Sub test2()
Dim Rw As Long
Dim WRw As Long
WRw = 10
For Rw = 1 To 9
Cells(WRw, 2).Value = Cells(Rw, 1).Value
WRw = WRw + 5
Next
End Sub
No.4
- 回答日時:
No.1です。
> 実際には、
> A1の値→B10に
> A3の値→B15に
> A5の値→B30に
> :
> A9の値→B85に
>
> といった具合なんです。
B列の行の規則性が良く判りませんが、単純に15づつ増えると言うわけではないのですね。どういう規則性があるのか判れば、的確な答えが得られると思います。
例をもう少し挙げて見てください
No.2
- 回答日時:
こんな感じでしょうか
Aは初期値から2づつ増加、Bは初期値から15づつ増加
(例とBが10ずれていますが)
Sub test()
Dim i As Long
Dim lngAS As Long
Dim lngBS As Long
lngAS = 1
lngBS = 10
For i = 1 To 10
Cells(lngBS + (i - 1) * 15, 2).Value = Cells(lngAS + (i - 1) * 2, 1).Value
Next i
End Sub
No.1
- 回答日時:
A1の値→B2に
A2の値→B4に
:
A9の値→B18に
と、言うことですか?
それなら1つの変数を使いまわせば良いですよ。
Dim i As Integer
For i = 1 To 9
Cells(i*2, 2).Value = Cells(i, 1).Value
Next i
この回答への補足
早速のお返事ありがとうございます。
言葉足らずですみません。
実際には、
A1の値→B10に
A3の値→B15に
A5の値→B30に
:
A9の値→B85に
といった具合なんです。
片方がSTEP2、片方がSTEP15なので
(自分のしょぼい脳ミソでは)1つの
変数でうまく組めなかったもので・・・
この場合はいかがでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) マクロで最終行を取得したい 4 2023/05/28 12:14
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
-
4
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
5
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
8
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
9
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
12
リストと一致する値のセルを塗りつぶしたい。
その他(Microsoft Office)
-
13
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
14
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
15
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
16
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
17
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
-
18
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
19
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
20
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
ある範囲のセルから任意の値を...
-
検便についてです。 便は取れた...
-
2つの数値のうち、数値が小さい...
-
一番多く表示のある値(文字列...
-
精液の落とし方を教えてください
-
エクセル指定した範囲からラン...
-
エクセルのラベルの値(文字列...
-
EXCELで条件付き書式で空白セル...
-
値が入っているときだけ計算結...
-
MIN関数で空白セルを無視したい...
-
甲状腺が腫れているが血液検査...
-
エクセルで数式の答えを数値と...
-
テスターで断線を調べる方法教...
-
エクセルでθを求めたい。
-
小数点以下を繰り上げたものを...
-
中出しをするとお腹が痛い・・・。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
精子が黄色?
-
EXCELで条件付き書式で空白セル...
-
至急!尿検査前日にオナニーし...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
甲状腺が腫れているが血液検査...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
口の中に黒い血の塊
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
おすすめ情報