Question

我从另一个论坛获得了这个工作代码，并适应了我的应用程序，我想对其进行修改，以便将每个唯一值写入同一工作簿中名为“ Validation Data”的工作表到从A2开始的下一个空白行中。我尝试摆弄它，因为有很多示例，但我无法使其正常工作。有人可以通过代码帮助我将每个唯一值写入名为“ Validation Data”的工作表吗？我想我必须使用xlDown函数创建另一个变量，但尝试了几种变体，但无法使其正常工作。

Sub LCs2_In_Selection()
'Move visible email addresses to Sheet2.ColumnASheets(2).Cells.ClearContents
Sheets(2).Cells.ClearContents
lastSrcRw = Sheets("Pipeline").Cells(Rows.Count, 2).End(xlUp).Row
 For Each cell In Sheets("Pipeline").Range("E11:E" & 
 lastSrcRw).SpecialCells(xlCellTypeVisible)
    dstRw = dstRw + 1
    cell.Copy Sheets(2).Range("A" & dstRw)
 Next


'Loop through Sheet2 list, extract unique addresses
lastTmpRw = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
 For tmpRw = 1 To lastTmpRw
     If WorksheetFunction.CountIf(Sheets(2).Range("A1:A" & tmpRw), _
        Sheets(2).Range("A" & tmpRw)) < 2 Then
     'CODE TO WRITE THE VALUE TO "VALIDATION DATA SHEET" NEXT BLANK ROW STARTING IN A2
     End If
 Next tmpRw

End Sub

遍历范围并将唯一值写入下一个空白行

0 个答案: