就拿日期在一個工作表，並找到其他工作表列相同的日期和返回單元格引用該日期在循環使用

Question

昏暗WB作爲工作簿 昏暗的WS1作爲工作表

集WS1 = wb.Sheets （1）

昏暗Lastrow_ws1只要 Lastrow_ws1 = ws1.Range（ 「A」 & Rows.Count）.END（xlUp）.Row

昏暗LastDate只要

設置LastDate =東西「採取WS3 A列的最後日期和發現WS1列中的該日期並找到返回的單元格引用

對於y = LastDate要LASTROW

ws1.Cells（Y， 。 「A」）複製 ws2.Range（ 「A1」）PasteSpecial的粘貼：= xlPasteValues

計算

「然後運行一個單獨的循環中使用的LASTDATE變

Answer 1

我可以幫你O但是你需要在問題和問題的格式上更清楚一點，你通常還需要具體說明你的問題。您可以使用類似this的內容來開始格式化您的代碼。

對，因此，首先，您將wb定義爲Dim wb As Workbook，但您不要將其設置爲任何值。我可能會建議Set wb = ActiveWorkbook你Set ws1 = wb.Sheets(1)

很難把它從你的代碼告訴過，但Dim Lastrow_ws1 As Long Lastrow_ws1 = ws1.Range("A" & Rows.Count).End(xlUp).Row最好應在不同的線路：

Dim Lastrow_ws1 As Long 
Lastrow_ws1 = ws1.Range("A" & Rows.Count).End(xlUp).Row 

現在，你冒險進入僞代碼：Set LastDate = something 'take the last date in ws3 column A and find that date in ws1 column A and find the return the cell reference

您必須定義ws3它在任何地方都沒有提及。

在這一行ws1.Cells(y, "A").Copy ws2.Range("A1").PasteSpecial Paste:=xlPasteValues您提到ws2，但它沒有在任何地方定義。

循環可能是這樣的：

For i in Range("A1","A" & Lastrow_ws1) 
If i = LastDate Then 
    'Do what you want to do 
Else 
End If 
Next