میتوندید از این کد برای انجام کارتون استفاده کنید.
البته فایلی هم شامل این برنامه برای میزارم.
کد PHP:
Sub a()
Dim c As Range
Dim n As Double
Dim lRow As Long, lCol As Integer, mrow As Long, mCol As Integer, i As Integer
lCol = ActiveSheet.UsedRange.Columns.Count
mrow = 0
For i = 1 To lCol
lRow = Range(Cells(Rows.Count, i), Cells(Rows.Count, i)).End(xlUp).Row
If lRow > mrow Then
mrow = lRow
mCol = i
Else
End If
Next i
n = mrow
For Each c In Range(Cells(1, 1), Cells(n, 1))
For i = 1 To n
If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(n, 1)), c) > 1 Then
f = Cells(i, 1).Value
End If
If Cells(i, 1) = f Then
Cells(i, 1) = ""
End If
Next i
Next
End Sub
فایل شامل برنامه:
Book5.xlsm
علاقه مندی ها (Bookmarks)