まず、私はこのサイトから何年にもわたって多くのことを学んできました。より複雑なコード行に関しては、私はまだかなりグリーンです。私がやろうとしていることを説明するために最善を尽くします。誰かが私を正しい方向に向けることができるかもしれません.
次のようなシリーズに2つの列があります。
Column A Column B
1 0
1 1
1 2
1 0
1 1
1 2
2 0
2 1
2 2
4 0
4 1
私がしたいのは、列 A シーケンスの最後の番号に到達するまで列 B を検索し、列 A の番号を 1 ずつ変更することです。したがって、私の最終結果は次のようになります。
Column A Column B
1 0
1 1
1 2
2* 0
2* 1
2* 2
3 0
3 1
3 2
4 0
4 1
私は次のようなことをしようとしました
Sub pdiddy()`
Do Until ActiveCell.Value = ""`
If ActiveCell.Value < 15 Then 'the column b sequence is only going to be between the numbers 0-15
ActiveCell.offest(1, 0).Value 1 'the column A sequence can increase until 99
End If
Loop
End Sub
番号シーケンスが変更される前に、番号シーケンスが 15 を超えない場合は、列 A の番号を保持したいと思います。これを明確に説明できたことを願っています。同じ列 A と列 B の組み合わせが存在しないことを確認したいと思います。初心者がコードシーケンスを理解し、より良くなるのを助けてくれてありがとう。また、これにタグを付けようとしましたが、正しくやったとは思いません。申し訳ありません。BSOV