单元格区域同时加、乘、除一个数或区域的代码

好奇心 · 发表于 2010-2-28 00:25

如题。只因为看到不少如题的问题，多数人不是用数组加循环或是用选择性粘贴的方法解决之，这些代码对菜鸟们来说的确不好掌握，所以发此帖子。如果哪位已经发过类似帖子，敬请原谅！
Private Sub qq()
Cells.Clear
[a1] = 1: [a2] = 2: [a3] = 3: [b1] = 4: [b2] = 5: [b3] = 6
: [c4:d6] = [a1:b3*2] '*号可以用(+、-、÷)来运算
[e7:f9] = [a1:b3+c4:d6] '+号可以用(*、-、÷)来运算
End Sub

yvhgydn · 发表于 2010-2-28 00:40

这里[a1] = 1: [a2] = 2: [a3] = 3: [b1] = 4: [b2] = 5: [b3] = 6
里面用的分号：是什么意思啊

cjainwei · 发表于 2010-2-28 00:43

VBA数组和函数的数组差不多

好奇心 · 发表于 2010-2-28 02:34

代码:
[c4:d6]=[a1:b3^(1/3)] '(1/3)可用和[a1:b3]一样大小的任意区域来计算
答二楼:
[a1]=1:[a2]=2…[b3]=6这行代玛中的分号是为了能在一行中写多行代码

gljzyp · 发表于 2010-2-28 05:14

不错不错，比较简单易写！

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

[分享] 单元格区域同时加、乘、除一个数或区域的代码

一个单元格区域还可以和一个数或一个区域乘方