以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  还是宏命令的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52485)

--  作者:498350800
--  发布时间:2014/6/16 23:04:00
--  还是宏命令的问题

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

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:例子.xls


--  作者:有点甜
--  发布时间:2014/6/16 23:22:00
--  

直接用狐表的操作excel吧。把帮助文档看完

 

http://www.foxtable.com/help/topics/1144.htm