tnjk.net
当前位置:首页 >> ExCEl VBA能一次性修改多处单元格数据吗 >>

ExCEl VBA能一次性修改多处单元格数据吗

sheet1.range("A2,B3,C2,D5,H9,F25")=25 这一句就把上面6个单元格全改成25了。条件或规则更复杂也没有问题,只要能把需求描述清楚就能实现。 举例是只说明VBA的强大,只有你想不到的强大,几乎没有做不到的。

c.Value = Replace(c.Value, "a", "UY") 而且你有 替换 单个 d 和 双个 d 的,要把 两个 d 的放前面

'比如 在范围 A1:D100 '把下面代码拷贝到后台宏,按F5执行就OK public sub test() FOR EACH S IN RANGE("A1:D100") if s = "one" then range(s.address)="1" if s = "Thank you" then range(s.address)="谢谢" if s = "me" then range(s.address...

一、直接操作 1、选择多个sheet ctrl+鼠标点击可以依次选择 按住shift,点击首尾两个sheet,可选择包括两个sheet间的所有sheet。 2、点击其中sheet单元格 3、输入公式或者数值即可。 二、VBA法 VBA方法操作更为灵活,可进行的计算也更加多样。 如...

关键代码如下: for i=2 to range("A65536").end(3).row if cells(i,"D")="" then cells(i,"E")="" else cells(i,"E")=cells(i,"D")+10 end if next i

VBA 多单元格数据的引用举例说明:引用 A1:A2, C2:C4, E5, F6 四个区域的数据,并输出到 A9:A15 。 1、先定义一个单元格变量Rng;‍ Dim Rng As Range2、用Union() 函数将多个单元格及区域联合起来,并赋值给单元格变量 Rng; Set Rng = Un...

选择全部工作表,然后在任一表中操作,就实现所有表同一位置的批量修改。

Sub MC_TEST() Set rng = Cells.Find(What:=[A1], LookAt:=xlWhole) rng.Offset(0, 1) = "-" & rng.Offset(0, 1) rng.Offset(0, 2) = "-" & rng.Offset(0, 2)End Sub输入单元格在A1

代码: sub 改名() for each sht in thisworkbook.sheetssht.name = sht.[a1] '每个sheet的A1单元格nextend sub

Sub MultiModi()Dim wb As WorkbookDim ws As WorksheetDim fnfn = Dir("盘符:\文件所在的完整路径名\*.xls") '取得第一个工作簿的文件名(如果是2007版,则后缀名请改为 *.xlsx)Do While fn "" Set wb = Workbooks.Open(fn) '打开工作簿 For E...

网站首页 | 网站地图
All rights reserved Powered by www.tnjk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com