数値が転記されなくて困っています。
お分かりかと思いますが簡単に説明させていただきます。
以下のマクロは任意のCELLが空欄であるならば、その空欄に他のCELLからのデータを持ってくる。
というものですが。
r = 36
Do Until s2.Cells(r, 5) = ""
r = r + 1
Loop
s2.Cells(r, 5) = s1.Cells(1, 39)
s2.Cells(r, 10) = s1.Cells(3, 39)
の部分はデータの転記が成功するのですが。
それ以外の部分は空欄になってしまいます。
同シート同士の選択がいけないのか?
s2.Cells(r, 3) = s2.Cells(34, 48)
s2.Cells(r, 8) = s2.Cells(35, 48)
s2シートの設定がどこかおかしいのか?
表現の仕方がおかしいのか・・・
できる限りの原因を探りましたが分かりませんでした。
どなたかマクロの詳しい方、知識をお貸しください><
Sub xxx()
s1_name = "NO1"
s2_name = "NO2"
Set s1 = Sheets(s1_name)
Set s2 = Sheets(s2_name)
r = 36
Do Until s2.Cells(r, 5) = ""
r = r + 1
Loop
s2.Cells(r, 5) = s1.Cells(1, 39)
s2.Cells(r, 10) = s1.Cells(3, 39)
r = 36
Do Until s2.Cells(r, 3) = ""
r = r + 1
Loop
s2.Cells(r, 3) = s2.Cells(34, 48)
s2.Cells(r, 8) = s2.Cells(35, 48)
r = 36
Do Until s2.Cells(r, 4) = ""
r = r + 1
Loop
s2.Cells(r, 4) = s2.Cells(25, 48)
s2.Cells(r, 9) = s2.Cells(26, 48)
r = 36
Do Until s2.Cells(r, 6) = ""
r = r + 1
Loop
s2.Cells(r, 6) = s2.Cells(30, 48)
s2.Cells(r, 11) = s2.Cells(31, 48)
End Sub
No.2ベストアンサー
- 回答日時:
>お分かりかと思いますが
判りにくいよ。
ーー
コードだけ挙げて、やりたいことも回答者が解読し、答えも教えろ、ですか。
したいことぐらい文章で記述すべきだ。文章に客観かすることで、思考も深まる。
>Do Until s2.Cells(r, 5) = ""
くり返しの、終了条件が空白セルに「最初の遭遇」になっているが、其れで良いのか?
空白でないセルは処理しないにしても、範囲の最下セルまでは空白かどうか、判別して空白であれば
他セルから値を取ってくるのではないですか。
VBAを始めて日が浅いのかな。
直ぐこういうところに質問しないで、デバッグの方法も勉強し、デバッグする習慣をつけないと
何時までも力がつかない。
ーー
個人的なお奨め
s2.Cells(r, 3)ーー>s2.Cells(r,"C") 可読性が良い
Do Untilーー>できればFor Nextループで
本件もこのやり方なら上記の件を考え違いはなくなるだろう。
r=36やr=r+1の行が不要になる。
第3,4,5,6の列を対象にするため、似たコードを連ねているが、1本化できないか、勉強のため今後考えて見ては。
なんかお恥ずかしくなってしまいました。
こういう質問の仕方はよくないのですね^^;色々反省します。。
分かる限りのご指導ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) セルS2に入力した「月」と一致したB列の右隣へセルS110の値を転記する下記マクロを実行するとエラー 2 2022/12/06 17:32
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- C言語・C++・C# C言語で再起関数とポインタを用いて文字列反転をする方法がわかりません。 4 2023/04/29 20:32
- Visual Basic(VBA) ExcelVBAの転記について 1 2022/03/23 20:13
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- C言語・C++・C# c言語でユーザ関数を利用して入力された文字列を反転させるプログラムを作りたいです。 3 2023/01/29 19:47
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルで別シートへの文字の転記ができない
Excel(エクセル)
-
エクセルvbaで転記したのですが、数字のゼロが消えてしまいます。 ゼロも転記するためにはどうしたらい
Excel(エクセル)
-
別のシートから値を取得するとき
Visual Basic(VBA)
-
-
4
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
5
エクセルマクロで指定範囲内の図形を削除
Excel(エクセル)
-
6
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
7
【VBA】計算結果に小数点第2位までを表示させる方法
Visual Basic(VBA)
-
8
VBA 空白行に転記する
Visual Basic(VBA)
-
9
転記先VBA 一致しているセルがコピーされない
Visual Basic(VBA)
-
10
Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい
Excel(エクセル)
-
11
【マクロ】book1からbook2への適切な転記が出来ない件
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
Vba 実数および実数タイプの変...
-
ユーザーフォームに別シートか...
-
VBA レジストリの値の読み方に...
-
エクセルVBAについて
-
VBA listBoxから
-
ExcelのVBAコードについて教え...
-
VBA 複数条件の分岐処理の上手...
-
ExcelのVBAです。フォルダ内の...
-
VBAの計算で@が出てしまう件
-
VB.net(VB)で、フォームにExcel...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
VBAの質問になります Userform内で
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
Vba SelStart、SelLen教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL マクロ データが転記さ...
-
ExcelのVBAで最終行の下にコピ...
-
VBA繰り返し ワイルドカード
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
条件に応じて特定の行を非表示...
-
前の(左隣の)シートを連続参...
-
Excelで金銭出納帳。繰越残高を...
-
EXCEL:同じセルへどんどん足し...
-
EXCELで1ヶ月分の連続した日付...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルでファイルを開いたと...
-
EXCELで同一フォーマットのシー...
-
エクセルで前のシートを連続参...
-
エクセルで前シートを参照して...
-
VBAでシートコピー後、シート名...
-
Excelでセル内の数式は残し値だ...
-
Accessのスプレッドシートエク...
おすすめ情報