同じワークシート内の異なる範囲のラストローを見つける

Question

linuxのテーブルをコピーして、Excelにトラッキングするためのグラフを埋め込む自動化タスクを実行する必要があります。タスクはほぼ完全に自動化されていますが、まだExcelでいくつかの手動ジョブを実行する必要があります。

おそらくSUMMARY（1）ワークシートには、10種類のモードと10種類のモードを持つSUMMARY（2）ワークシートがあります。毎週、各モードのデータはcol F：Kから自動的に更新されます。私はすでにVBAを使って自動的にその部分をしました。しかし、私は、COL Aに対して手動で記述する必要があり：各モードのDここで：

• COLのA：O占有手段及びEは空
• COLのB意味：週の数
• COLのC：特定のある日形式ではなく、通常の
• COL D：データベース名

10モードから成る概要ワークシートA1からのものである：S51（MODE1）、A52：S：101（MODE2）などまで最後にA452：S501（モード10）で、すべてのモードの範囲は50セルです。

私は既に入力を求めて変数に格納していますが、各モードの次の行にどのように値を貼り付けますか？たとえば、W1からW4まではすでに更新されています。ユーザーがWW5にプロンプ​​トを入力すると、値は各モードのラストローの次の行に格納されます。

これは、モード1と2のように見える例です。残りのモードはおそらくmode2の後に続きます。

これは、ユーザーの入力値、それは各モードの最初の行に貼り付けられます私の現在のコードです：ここでは

Private Sub CommandButton1_Click() 

Dim d As Variant 
Dim w As Variant 
Dim daymonth As Variant 
Dim data As Variant 
Dim i As Integer 

d = InputBox("Enter the D:") 
w = InputBox("Enter the Week:") 
daymonth = InputBox("Enter the date:") 
data = InputBox("Enter the database name:") 
For i = 2 To 501 Step 50 
    Cells(i, 1).Value = d 
    Cells(i, 2).Value = w 
    Cells(i, 3).Value = daymonth 
    Cells(i, 4).Value = data 

Next i 

End Sub 

Answer 1

は、トリックを行うことができますコードです。コードを実行する前に、2行未満のデータを持つモードがある場合、このコードは正しく動作しません。その場合は、どのように処理するかに基づいて変更する必要があります。

wk_no = InputBox("Enter Week") 

For i = 1 To 2 ' Iterating through sheets 
    For j = 2 To 452 Step 50 'Iterating through the rows 
     Sheets(i).Range("B" & Trim(Str(j))).End(xlDown).Offset(1, 0).Value = wk_no 
    Next j 
Next i