简化一段Excel VBA代码 (简化一段文字)

本文目录导航：

• 简化一段Excel VBA代码
• 代码最多10位，那么如何填写才好呢？

• EXCEL VBA 上方这段代码怎样简化，初学者讨教

简化一段Excel VBA代码

只有要减少几句，而后将多余的删除即可。在第一句前减少如下：i = Range(“XFD1”)(xlToLeft) i = 1 to 8而后将下图白色划线局部区分修正为Cells(i)和Cells(1,i)

在最后局部减少：i = Cells(1,i)(xlToLeft)其他局部所有删除。

前面两句的意思是：1、从上班表的第一行最左边向左边寻觅非空单元格的列序号；2、做个循环，一共是8次，由于H列到AA列共8个数据；最后两句的意思，一个是再次查找非空列序号，和For循环的结构语。

代码最多10位，那么如何填写才好呢？

单位代码最多10位字符怎样填

1. 间接填写将 间接填写到相应的位置即可。

2. 简化代码假设你的单位代码比拟长，可以思考将其简化为10位以内的字符组合，并在填写时经常使用简化后的代码。

例如，假设你的单位代码是 ABCD，你可以将其简化为 ABCD，并在填写时经常使用简化后的代码。

3. 留空或填写其他消息假设真实不可在限定的10位字符范畴内填写，可以思考留空或填写其他关系消息，如单位称号、营业执照号码等。

但请留意，这仅实用于不凡状况，普通状况下还是须要尽量依照要求填写完整的消息。

EXCEL VBA 上方这段代码怎样简化，初学者讨教

如图，k=3代表I列数据开局的行号，

rng为单元格变量，

For Each 循环会让rng每次代表A3:A2000中的一个单元格，

假设rng单元格的值为空值时，则提取数值过去，并同时k启动累加1

假设k一直没到达>6的条件，则会不时遍历到A2000为止，

假设k到达>6的条件时，则会间接跳出for，提早完结循环。

代码如下：

Sub 宏宏()

Dim rng As Range, k& 申明rng为单元格对象，k为loog型

k = 3 给k赋一个初值

For Each rng In Range(A3:A2000) 遍历该区域每个单元格

If rng = Then 假设rng单元格的值为空值

(1, 4) = Range(I & k)(1, 4)

rng重选1行4列 = Range(I & k)重选1行4列的值

k = k + 1 累加

If k > 6 Then Exit For 满足此条件则跳出for

MsgBox 解决终了, 64 弹出提示对话框