求教大侠excel求和公式的问题

Question

兄弟想设定a列等于b列加c列，能用公式设定吗？怎么写，急用！！单元格的我会但是整列的怎么写呢？

Answer 1

必需一格一格写，但可用复制方法把公式复制过去
如A1公式是=B1+C1
复制A1单元格
选中A列
粘贴
（公式会智能变化）

Answer 2

'复制单元格
   xlApp.ActiveWorkbook.Sheets(1).Range("a1:d2").Select
  xlApp.Selection.Copy
    xlApp.ActiveWorkbook.Sheets(1).Range("a22:d23").Select
    xlApp.ActiveWorkbook.Sheets(1).Paste

Answer 3

这个很简单啊B、C两列已经有内容了是吧？
这样，先在A1里输入“=B1+C1”不包括引号，回车确认
这时A1应该已经显示结果了
你再把鼠标移动到A1单元格的右下角，当鼠标光标变成黑色的“十”字型时，注意是黑色的，这时按住鼠标左键不放，然后把鼠标往下拖，松开鼠标后你再看看吧^_^

Answer 4

在VBA中
for i=1 to 10000
   activesheet.cells(i,1)=activesheet.cells(i,2)+activesheet.cells(i,3)
next i

Answer 5

楼主，我已搞定，代码如下。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 = NothingEnd Sub
楼主给分哦

Answer 6

上面要先引用Excel，如果不引用，那么就定义为Object
然后Set a=createobject("Excel.application")

Answer 7

楼主，就用LGYAN(紫衣随想)的方法吧!