求教大侠excel求和公式的问题
兄弟想设定a列等于b列加c列，能用公式设定吗？怎么写，急用！！单元格的我会但是整列的怎么写呢？ 问题点数：100、回复次数：11Top
1 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2004-09-02 11:09:48 得分 20
必需一格一格写，但可用复制方法把公式复制过去
如A1公式是=B1+C1
复制A1单元格
选中A列
粘贴
（公式会智能变化）Top
2 楼jone999（折子戏）回复于 2004-09-02 11:16:40 得分 0
'复制单元格
xlApp.ActiveWorkbook.Sheets(1).Range("a1:d2").Select
xlApp.Selection.Copy
xlApp.ActiveWorkbook.Sheets(1).Range("a22:d23").Select
xlApp.ActiveWorkbook.Sheets(1).PasteTop
3 楼yijiansong（不知路在何方）回复于 2004-09-02 11:19:23 得分 0
UPTop
4 楼BlueBeer（1win）回复于 2004-09-02 20:58:10 得分 0
这个很简单啊
B、C两列已经有内容了是吧？
这样，先在A1里输入“=B1+C1”不包括引号，回车确认
这时A1应该已经显示结果了
你再把鼠标移动到A1单元格的右下角，当鼠标光标变成黑色的“十”字型时，注意是黑色的，这时按住鼠标左键不放，然后把鼠标往下拖，松开鼠标后你再看看吧^_^Top
5 楼williamtom（）回复于 2004-09-03 08:16:45 得分 0
在VBA中
for i=1 to 10000
activesheet.cells(i,1)=activesheet.cells(i,2)+activesheet.cells(i,3)
next iTop
6 楼LGYAN（紫衣随想）回复于 2004-09-03 08:27:57 得分 0
自己一个单元格一个单元格的写吧。用公式好象无法完成！Top
7 楼LGYAN（紫衣随想）回复于 2004-09-03 08:57:33 得分 80
楼主，我已搞定，代码如下。
Private Sub Command1_Click()
Dim a As New Excel.Application
Dim b As Excel.Workbook
Dim c As Excel.Worksheet
Dim i As Integer
Set b = a.Workbooks.Add
Set c = b.Worksheets(1)
a.Visible = True
'为第一列赋值,测试用
For i = 1 To 10
c.Cells(i, 1) = i * 2
Next i
'为第二列赋值,测试用
For i = 1 To 10
c.Cells(i, 2) = i * 3
Next i
'一条语句解决相加,Range中的单元格为起始单元格和终点单元格.
c.Range(c.Cells(1, 3), c.Cells(10, 3)).Cells.FormulaR1C1 = "=SUM(RC[-2]+RC[-1])"
Set c = Nothing
b.Close False
Set b = Nothing
Set a = Nothing
End Sub
楼主给分哦
Top
8 楼LGYAN（紫衣随想）回复于 2004-09-03 08:58:25 得分 0
上面要先引用Excel，如果不引用，那么就定义为Object
然后Set a=createobject("Excel.application")Top
9 楼jam021（jam）回复于 2004-09-06 12:48:30 得分 0
同意楼上的方法Top
10 楼flyingZFX（卍 南无阿弥陀佛 卍）回复于 2004-09-06 16:15:05 得分 0
楼主，就用LGYAN(紫衣随想)的方法吧!Top
11 楼yelang771（牧野流星）回复于 2004-09-09 15:10:58 得分 0
哇Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
