1
引用用ワークブックを作成しました。 各製品に8枚のシートがあります（数量/説明/ユニット/合計）、私たちは必要な品目の数量をAに入れて、各シートに製品選択を行います。Excelに行を追加、続行
Main QTYが0でない場合に限り、他のシートの項目を引き出すシートを作成します。QTYが0の場合は行が空白になり、そうでない場合は適切なデータが入力されますが、私は立ち往生した。
基本的には、Mainシートに式を通してテーブルを下に移動し、次のテーブル（次のシート）に移動して続行します。空の行がないようにしたいと思います。これは可能ですか？
現在のコード：
Sub delblankrows()
Dim s1 As Worksheet
Dim tmpR As Range
Dim rowcount As Long, colcount As Long, i As Long, j As Long, k As Boolean
Set s1 = Sheets("Complete")
Set tmpR = s1.UsedRange
rowcount = tmpR.Rows.Count
colcount = tmpR.Columns.Count
For i = rowcount To 1 Step -1
k = 0
For j = 1 To colcount
If tmpR.Value2(i, j) <> "" Then
k = 1
Exit For
End If
Next j
End Sub
これは、私のためのコード "（または"これを行うには誰かに払うには安い私の会社のコード "）サイトでもあります。特定の問題に悩まされた場合は、コードを自分で開始してください。戻ってきて、私たちが答えることができる具体的な質問をしてください。私たちはお手伝いします。 – YowE3K
私は理解しており、私自身でそれをやろうとしています。私は個々のマクロを持っていますが、それをすべて一緒にする方法を理解することはできません。私はちょうどいくつかの助けがほしい、私はそれのすべてが私のために終わったわけではない。 – adams
作業を終えていたら、あなたが思いついたコードを投稿してください。そうすれば、あなたが持っている問題を解決することができます。 （問題に何のコードも書いていないという問題は、特定のタスクを達成するための何百もの方法があるということですが、そのうちのほんのいくつかがあなたのコードに容易に組み込まれるでしょう。あなたに役立つものに提案を限定してください。） – YowE3K