VBA проблем
2 отговора
0 прегледа
VBA проблем
Моля за помощ !!! Имам една таблица на Excel. В нея една от колоните съдържа номера, между които има и повтарящи се. Идеята ми е да проверява тази колона ред по ред и в съответствие с номера в тази колоната, ако номера го няма повтарящ в цялата колона, да прати целия ред в Sheet2, a ако номера се повтаря на няколко други реда от колоната, да копира в Sheet3 само първия срещнат ред с този номер в тази колона, а останалите редове да ги игнорира. Не знам дали казах точно какво искам, но се надявам че съм бил достатъчно изчерпателен. Ако все пак имате въпроси за доуточнение, питайте. Можете ли да ми помогнете?
A false life is equal to death. Be your true self... like me !!!
A false life is equal to death. Be your true self... like me !!!
в отговор на MadMax2OOO
#2
Re: VBA проблем
Sub Transfer()
Dim i As Integer, y As Integer, LastRow As Integer, CopyRow As Integer
LastRow = Sheets(1).Range("A65536").End(xlUp).Row
For i = 1 To LastRow
If WorksheetFunction.CountIf(Sheets(1).Range("A1:A" & i), Sheets(1).Range("A" & i)) = 1 Then
CopyRow = Sheets(1).Range("A" & i).Row
y = Sheets(2).Range("A65536").End(xlUp).Row + 1
Sheets(1).Rows(CopyRow & ":" & CopyRow).Copy Sheets(2).Range("A" & y)
End If
Next
End Sub
Dim i As Integer, y As Integer, LastRow As Integer, CopyRow As Integer
LastRow = Sheets(1).Range("A65536").End(xlUp).Row
For i = 1 To LastRow
If WorksheetFunction.CountIf(Sheets(1).Range("A1:A" & i), Sheets(1).Range("A" & i)) = 1 Then
CopyRow = Sheets(1).Range("A" & i).Row
y = Sheets(2).Range("A65536").End(xlUp).Row + 1
Sheets(1).Rows(CopyRow & ":" & CopyRow).Copy Sheets(2).Range("A" & y)
End If
Next
End Sub
в отговор на MadMax2OOO
#3
Re: VBA проблем
Може и без ВБ код да постигнеш желания ефект. Pivot ако опиташ и вече си готов, даже ще знаеш кой номер колко пъти се повтаря.