当前位置:编程学习 > VB >>

VB2008 EXCEL 单元格续写

单元格已经有“abc”等内容
现在我想在后面续写“DEF”
该怎样写?
其实我知道一个比较笨的方法
temp=excelsheet.cells(1,1).value ‘abc的单元格'
excelsheet.cells(1,1).value=temp+'def'

应该个方法应该行得通
但太笨了。。不想用
用宏做过,代码没用
写大侠解决 --------------------编程问答-------------------- 两句合一句不用temp,还有写公式 --------------------编程问答--------------------
excelsheet.cells(1,1).value=excelsheet.cells(1,1).value & "def"

补充楼上的 --------------------编程问答-------------------- --------------------编程问答--------------------
引用 2 楼 yiguangqiang88 的回复:
VB code
excelsheet.cells(1,1).value=excelsheet.cells(1,1).value & "def"

补充楼上的

+1 --------------------编程问答-------------------- 搂主你给的信息太少了

你可以多给点例子,好找规律, 你的代码其实也没什么错误, 就是只能对 A1这个单元格有效

如果想对A1~A10列单元格有效, 你可以这样

sub a()
   for  i= 1  to 10
        nc = asc(right(cells(i,1),1))+1
        cells(i,1).formular1c1 = cells(i,1).text & chr(nc) & chr(nc+1) & chr(nc+2)  '想加几个这里自己定义就好了,多的话可以用循环
   next
end sub --------------------编程问答-------------------- 這個是最本的方法,肯定要用到最基本的方法的。
沒有在聰明的方法了。
补充:VB ,  VBA
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,