[已解决]A列=B列，还有 C列=A列+B列代码怎么写？？？

yam521 · 发表于 2010-7-18 19:27

老师你好：

A列=B列，还有 C列=A列+B列代码怎么写？？？

本人对VBA不是很懂，见笑让。。

最佳答案

月排行榜 / 总排行榜

zjsxzgx

2010-7-18 20:05

SGc0ofUB.rar (11.35 KB, 下载次数: 52)

那么的帅 · 发表于 2010-7-18 19:32

Sub AA()

    For I = 1 To Range("A65536").End(xlUp).Row
        Range("A" & I) = Range("B" & I)
        Range("C" & I) = Range("A" & I) + Range("B" & I)
    Next I

End Sub

是这个意思?

zjsxzgx · 发表于 2010-7-18 19:34

一列=另一例没有搞错吧！

zjsxzgx · 发表于 2010-7-18 19:38

那么的帅是数值的相加

我下面的是文字的相加

Sub AA()

    For I = 1 To Range("A65536").End(xlUp).Row
        Range("A" & I) = Range("B" & I)
        Range("C" & I) = Range("A" & I) & Range("B" & I)
    Next I

End Sub

fjmxwrs · 发表于 2010-7-18 19:49

Sub aaa ()

For myRow = 1 To Range("A65536").End(xlUp).Row '这意思是myRow值从1到A列最后一行非空行循环。

Cells(myRow,1) = Cells(myRow,2) '表示A=B，Cells(myRow,1)myRow是变量行数，1表示列数

Cells(myRow,3) = Cells(myRow,1) + Cells(myRow,2) '这是数值相加的

Cells(myRow,3) = Cells(myRow,1) & Cells(myRow,2) '这是文本相连接的

Next myRow '循环结束

End Sub

这样理解怎么表示A列=B列，C列=A列+B列了吗？

[此贴子已经被作者于2010-7-18 19:51:05编辑过]

yam521 · 发表于 2010-7-18 19:53

为什么都不是呢，我上个附件大家看看

bgjpNDnO.rar (6.28 KB, 下载次数: 6)

zjsxzgx · 发表于 2010-7-18 20:05

这个最佳答案由 zjsxzgx 给出，感谢 zjsxzgx 的回答。

单击隐藏图章

SGc0ofUB.rar (11.35 KB, 下载次数: 52)

yam521 · 发表于 2010-7-18 20:30

QUOTE:

以下是引用zjsxzgx在2010-7-18 20:05:00的发言：

看看是不是

A列一输入，B列能不能让它自动出现。E列=D列+C列，也自动出现

那么的帅 · 发表于 2010-7-18 20:38

是产生公式?

yam521 · 发表于 2010-7-18 20:49

不是公式

		自动登录	找回密码
密码			注册

[已解决]A列=B列，还有 C列=A列+B列 代码怎么写？？？

浏览过的版块

[已解决]A列=B列，还有 C列=A列+B列代码怎么写？？？