用VB代碼實現:清除"B2:B4", "B7:B8", "B14:B17", "B19:B20"單元格內容
时间: 2023-11-21 15:58:58 浏览: 35
以下是使用VB代码清除指定单元格内容的方法:
```vb
Sub ClearCells()
Range("B2:B4,B7:B8,B14:B17,B19:B20").ClearContents
End Sub
```
该代码使用Range对象选择要清除内容的单元格范围,然后使用ClearContents方法清除单元格内容。
相关问题
B8 G8 B9 G9 B10 G10 B11 G11 B12 G12 B14 G14 D15 G15 F16 B17 H17 B18 H18 B19 H19 B20 H20 B21 H21 B22 B24 H24 B25 H25 B26 B27 A29 B31 H31 B32 H32 B34 H34 B35 H35 B36 H36 B37 A39,请将以上数据转换成字母:数字^字母:数字
B:8^G:8^B:9^G:9^B:10^G:10^B:11^G:11^B:12^G:12^B:14^G:14^D:15^G:15^F:16^B:17^H:17^B:18^H:18^B:19^H:19^B:20^H:20^B:21^H:21^B:22^B:24^H:24^B:25^H:25^B:26^B:27^A:29^B:31^H:31^B:32^H:32^B:34^H:34^B:35^H:35^B:36^H:36^B:37^A:39
写一个EXCEL公式,将表格B行中B2到B20所有有内容的单元格用符号'+'连接起来,如果没有内容后面不要有+符号
可以使用以下公式将B2到B20中有内容的单元格用'+'符号连接起来:
```
=IF(B2<>"",B2,"")&IF(B3<>"","+ "&B3,"")&IF(B4<>"","+ "&B4,"")&IF(B5<>"","+ "&B5,"")&IF(B6<>"","+ "&B6,"")&IF(B7<>"","+ "&B7,"")&IF(B8<>"","+ "&B8,"")&IF(B9<>"","+ "&B9,"")&IF(B10<>"","+ "&B10,"")&IF(B11<>"","+ "&B11,"")&IF(B12<>"","+ "&B12,"")&IF(B13<>"","+ "&B13,"")&IF(B14<>"","+ "&B14,"")&IF(B15<>"","+ "&B15,"")&IF(B16<>"","+ "&B16,"")&IF(B17<>"","+ "&B17,"")&IF(B18<>"","+ "&B18,"")&IF(B19<>"","+ "&B19,"")&IF(B20<>"","+ "&B20,"")
```
这个公式会检查每个单元格是否有内容,如果有则用'+'符号连接起来,否则不添加符号。注意,这个公式包括B2到B20单元格,如果需要修改范围,只需更改公式中的B2和B20即可。