1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Range("D1:E1").Select
Selection.AutoFilter
ActiveSheet.Range("$D$1:$E$21").AutoFilter Field:=2, Criteria1:="<>"
Range("D2:D21").Select
Selection.Copy
Sheets("SELECTION").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(RC[-2],R[1]C[-2],R[2]C[-2],R[3]C[-2],R[4]C[-2],R[5]C[-2],R[6]C[-2],R[7]C[-2],R[8]C[-2],R[9]C[-2],R[10]C[-2],R[11]C[-2],R[12]C[-2])"
Range("C2").Select |
Partager