আমার ম্যাক্রো রয়েছে যা নিম্নলিখিতগুলি করে:
- পরপর সারিগুলিতে একই ডেটা রয়েছে কিনা তা পরীক্ষা করে দেখুন (কলাম এফ এবং জি)
আমার এই ম্যাক্রোটি কোনওভাবে নিম্নলিখিতগুলি করার জন্য প্রয়োজন:
- যদি কলাম এফ এবং জি এর ডেটাগুলি পরের সারিতে সমান হয়
- প্রথম সারির সমাপ্তিতে উভয় সারির জন্য কলাম A, B, C, D, I এবং J এ ডেটা একত্রিত করুন। যেন আপনি ALT + ENTER টিপে ডেটা প্রবেশ করেছেন
কোন ধারনা?
Sub test()
'define variables
Dim RowNum as long, LastRow As long
'turn off screen updating
Application.ScreenUpdating = False
'start below titles and make full selection of data
RowNum = 2
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Range("A2", Cells(LastRow, 10)).Select
'For loop for all rows in selection with cells
For Each Row In Selection
With Cells
'if first name matches
If Cells(RowNum, 5) = Cells(RowNum + 1, 5) Then
'and if last name matches
If Cells(RowNum, 6) = Cells(RowNum + 1, 6) Then
*******This is the part I cannot figure out!*******
Rows(RowNum + 1).EntireRow.Delete
End If
End If
End With
'increase rownum for next test
RowNum = RowNum + 1
Next Row
'turn on screen updating
Application.ScreenUpdating = True
End Sub