如何從多個範圍日期列表，並與相鄰的單元匹配它值

Question

B列到d是什麼，我有我的原片，接下來的2列是我想達到的目標點擊一個按鈕。真的很感激一些VBA編碼的幫助，因爲我不知道從哪裏開始（VBA新手在這裏）。

謝謝！

Answer 1

我覺得這個代碼將有助於你的問題

Dim dStart As Date 
Dim dEnd As Date 
Dim dDate As Date 
Dim iCol As Integer 
Dim iColDate As Integer 

iCol = 2 
iColDate = 2 

Do While Cells(iCol, 2).Value <> "" 
    dStart = Format(Cells(iCol, 2).Value, "dd/mm/yyyy") 
    dEnd = Format(Cells(iCol, 3).Value, "dd/mm/yyyy") 
    For dDate = dStart To dEnd 
     Cells(iColDate, 6).Value = dDate 
     Cells(iColDate, 7).Value = Cells(iCol, 4).Value 
     iColDate = iColDate + 1 
    Next 
    iCol = iCol + 1 
Loop