Excel VBA查找日期中兩個日期之間的差異。日期來自不同的工作表

Question

我想要使用Excel中的宏從兩個日期中獲取日期差異。在第一個日期的添加應該從sheet1

另一個（第二個）日期是從sheet2及其輸出（天差），我們必須在Excel中顯示sheet3。

我嘗試這樣做：

Dim i As Range,j As Range, ifind As Range, y,z, dest As Range, jfind As Range 
On Error Resume Next 
Worksheets("sheet3").Cells.Clear 
With Worksheets("sheet1") 
.UsedRange.Copy Worksheets("sheet3").Range("a1") 
For Each i In Range(.Range("D2"), .Range("D2").End(xlDown)) 
y=i.value 
With Worksheets("sheet1") 
Set ifind = .Cells.Find(what:=y, lookat:=ylWhole) 
For Each j In Range(.Range("D2"), .Range("D2").End(xlDown)) 
z=j.value 
With Worksheets("sheet2") 
Set jfind = .Cells.Find(what:=z, lookat:=zlWhole) 
If ifind and jfind Is Nothing Then GoTo line1 
set datefind="datedif("ifind","jfind","d")" .Copy 
With Worksheets("sheet3") 
End with 'sheet2 
end with 'sheet2 
line1: 
Next 
end with 'sheet1 
Application.CutCopyMode = False 

Answer 1

這裏是解決方案： -

Private Sub CommandButton1_Click() 
Dim currDate As Date 
Dim dateOffset As Integer 
Dim count1 As Integer 
Dim str As String 
Dim cuntfinal As Integer 
Dim strfinal As String 
countfinal = 2 
count1 = 2 
count0 = 2 
strdate = "d" & CStr(count0) 
For Each cell In Range(Sheet3.Range(strdate), Sheet3.Range(strdate).End(xlDown)) 
strdate = "d" & CStr(count0) 
count0 = count0 + 1 
If cell Is Nothing Then GoTo line10 
    startDate = Sheets("Sheet3").Range(strdate) 
    str = "h" & CStr(count1) 
For Each cell1 In Range(Sheet3.Range(str), Sheet3.Range(str).End(xlDown)) 
    count1 = count1 + 1 
    GoTo line20 
    Next cell1 
line20: 
If cell1 Is Nothing Then GoTo line10 
currDate = Sheets("Sheet3").Range(str) 
If currDate = "12:00:00 AM" Then GoTo line40 

dateOffset = DateDiff("d", startDate, currDate) 
line30: 
strfinal = "j" & CStr(countfinal) 
Sheets("Sheet3").Range(strfinal) = dateOffset 
countfinal = countfinal + 1 
line10: 
Next cell 
line40: 
strfinal = "j" & CStr(countfinal) 
Sheets("Sheet3").Range(strfinal) = " " 
countfinal = countfinal + 1 
GoTo line10 
    End Sub 

Answer 2

不知道到底你的意思，但它可能僅僅是這個（這取決於您的日期位於Sheet1和Sheet2伊夫認爲他們在列遞減1） ：

Sub Days() 
'Count Number of Dates in "Sheet1" 
Sheets("Sheet1").Select 
NumberDates = 0 
t = 1 
Do While Cells(t, 1) 
    t = t + 1 
Loop 
NumberDates = t - 1 

'Place Formula for date difference in Sheet3 
Sheets("Sheet3").Select 
With ActiveSheet.Range(Cells(1, 1), Cells(t, 1)) 
    .Formula = "=DAYS(Sheet2!A1,Sheet1!A1)" 
End With 
End Sub