با سلام
در فایل پیوست با استفاده از قابلیت اجرای ماکرو در صورت تغییر در سلولهای اکسل ، ماکرویی فراخوانی میگردد که ستون B شیت اول را بصورت بدون تکرار در ستون B شیت دو کپی مینماید.
کد PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b:b")) Is Nothing Then UniqueCopy
End Sub
ماکرو مورد نظر
کد PHP:
Sub UniqueCopy()
Sheet2.Columns(2).Clear
Sheet2.Columns(3).Clear
On Error Resume Next
With ActiveSheet
.Range("B1", .Range("B65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Sheet2.Range("B2"), Unique:=True
End With
X = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row
For I = 3 To X
Sheet2.Range("A" & I).Value = I - 2
Next I
Sheet2.Range("A2").Select
On Error GoTo 0
End Sub
علاقه مندی ها (Bookmarks)