1枚のシートから情報を収集し、それを別のシートに入れます。

Question

同じブックに2枚のExcelシートがあります。シート1とシート2。 sheet1の は毎月の日付を生成します。たとえば、列z1は3/1/2017、AA1は3/2/2017、AB1は3/3/2017などとなります。

次に、シート2では、列N、O、Pにいくつかの数字があります。毎日これらの数字は異なる可能性があります。

シート1とシート2の両方の列CにSNが格納されています。

ここでは、sheet2（N + O + P）からN、O、P列の値を収集し、同じSNでhead = Dateという列のsheet1に格納しようとしています。 次のコードを使用しようとしていますが、これは機能しません。

誰もがNext rは見当違いである。この

Sub registrereren() 
Dim FirstDate As Date 
Dim LastDate As Date 
Dim NextDate As Date 
Dim r As Long 

Dim j As Long 
Dim lastrow1 As Long 

FirstDate = DateSerial(Year(Date), Month(Date), 1) 
LastDate = DateSerial(Year(Date), Month(Date) + 1, 0) 
lastrow1 = Sheets("Registration").Range("C" & Rows.Count).End(xlUp).Row 

For r = 27 To LastDate 

If Cells(1, r) = Date Then 
Next r 

    For j = 2 To lastrow1 

    Sheets("Sheet1").Cells(j, r).Value = WorksheetFunction.VLookup(Sheets("Sheet1").Range("C" & j).Value * 1, Sheets("Sheet2").Range("C2 : P3000"), 11 + 12 + 13, 0) 


    Next j 
End If 

End Sub 

Answer 1

で私を助けることができます。

Sub registrereren() 
    Dim FirstDate As Date 
    Dim LastDate As Date 
    Dim NextDate As Date 
    Dim r As Long 
    Dim j As Long 
    Dim lastrow1 As Long 

    FirstDate = DateSerial(Year(Date), Month(Date), 1) 
    LastDate = DateSerial(Year(Date), Month(Date) + 1, 0) 
    lastrow1 = Sheets("Registration").Range("C" & Rows.Count).End(xlUp).Row 

    For r = 27 To LastDate 
     If Cells(1, r) = Date Then 
      For j = 2 To lastrow1 
       Sheets("Sheet1").Cells(j, r).Value = WorksheetFunction.VLookup(Sheets("Sheet1").Range("C" & j).Value * 1, Sheets("Sheet2").Range("C2 : P3000"), 11 + 12 + 13, 0) 
      Next j 
     End If 
    Next r 
End Sub 

VBAエディタはインデントのコードが簡単になります：それは結果のコードは次のようになりEnd If

た後でなければなりません。サブ、ファンクション、ループ、ケースを選択する、またはステートメントを開始するたびに、タブキーを押して次の行をインデントする習慣をつけます。ブロックを終了したら、バックスペースキーを使用して、以前のレベルのインデントに戻ります。さらに、エディタリボンには、コードのブロック全体をインデントまたはインデントできるオプションがあります。

これを行う習慣をついたら、ブロックが正しい方法で終了していないときに飛び越すはずです。一方、散発的で一貫性のないインデントは、Next rで問題が何であったかを知ることができませんでした。

上記のコードはコンパイルされましたが、スプレッドシートのレイアウトがわからないため、簡単にテストできませんでした。それでも問題が解決しない場合は、コードに別の問題があり、質問を編集したり、必要に応じて別の質問をしたりすることができます（問題を特定した後は、