در ستون اول مثال عدد ۳۴۰ تا ۳ ردیف تکرار شده و در ستون ۲ جلوی ۳۴۰ اعداد متفاوتی نوشته شده، میخوام در ستون ۱ یکی از ۳۴۰ بماند و جمع اعدادی ستون دوم که در ۳ ردیف بوده حالا در یک ردیف اتوماتیک جلوی ۳۴۰ نوشته بشه
-
Last edited by 68.leo; 2017/01/28, 21:48. -
سلام
فایل بفرستید خروجی نشون بدید بهتره..!
چک کنید...![B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT] -
سلام از ماکروی ذیل میتوانید استفده کنید.. فایل یوست رو بررسی نمایید
کد PHP:Sub Macro1()
'
' Macro1 Macro
'
'
Dim wsh As Worksheet
Dim t As String
Dim i, j, g, h, f As Integer
h = 5
Set wsh = ActiveSheet
With wsh.ListObjects("Table1")
i = .ListRows.Count
For j = 0 To i Step 1
If ((i - j) > 1) Then
.ListRows(i - j).Delete
End If
Next
.ListRows(1).Range(1, 2) = ""
End With
i = wsh.ListObjects("Table2").ListRows.Count
For j = 3 To i Step 1
f = wsh.ListObjects("Table1").ListRows.Count
g = Application.WorksheetFunction.CountIf(Range(Cells(5, 6), Cells(4 + f, 6)), Cells(j, 2))
If g = 0 Then
Cells(h, 6) = Cells(j, 2)
h = h + 1
End If
Next
End Sub
Last edited by rasools13; 2017/01/29, 00:09.[CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
[COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
[/CENTER]کامنت
کامنت