| A |
B |
C |
D |
E |
B1 |
| 11 |
2 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 1 |
12 |
3 |
4 |
5 |
112 |
| 11 |
22 |
3 |
4 |
5 |
1122 |
还是搞不定vba 麻烦哪位老师帮忙写一下，我的目的是在第六列更改标题为 B1，这个我可以做到，但是我要第六列第二行等于第一列第二行&第二列第二行。。。。第六列第N行等于第一列第N行&第二列第N行，然后再将第六列重复值的这一行删除
Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+k
'
Range("F1").Select
ActiveCell.FormulaR1C1 = "B1"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]&RC[-4]"
Selection.AutoFill Destination:=Range("F2:F19")
Range("F2:F19").Select
Cells.Select
ActiveSheet.Range("$A$1:$F$27").RemoveDuplicates Columns:=6, Header:=xlYes
ActiveWorkbook.Save
End Sub
加好友 
发短信
Post By：2014/6/16 23:04:00 [只看该作者]
