- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 还是宏命令的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52485)
-- 发布时间：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