就拿日期在一个工作表，并找到其他工作表列相同的日期和返回单元格引用该日期在循环使用

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