Tệp > In > In.
Sub TongHop(MainCol As String)
Dim Cot1 As Long,
Cot2 As Long Dim StrC1 As String,
StrC2 As String Select Case UCase$(MainCol)
Case "A"
Cot1 = lRow: Cot2 = lRow0 Str
C1 = "C": StrC2 = "C65432" Range("C3:C" & lRow)ClearContents
Case "B"
Cot1 = lRow0: Cot2 = lRow Str
C1 = "D": StrC2 = "D65432" Range("D3:d" & lRow0).ClearContents
End
Select
For jZ = 3 To Cot1
For jW = 3 To Cot2
If Cells(jZ, 1) = Cells(jW, 2) Then _ Exit For
Next jW
If jW > Cot2 Then
_ Range(StrC1 & Range(StrC2).
End(xlUp).Row + 1) = Cells(jZ, 1) Next jZ End Sub