【发布时间】:2021-11-01 11:25:55
【问题描述】:
【问题讨论】:
-
我建议您展示您已经尝试过的内容。在我看来,VBA 脚本是可行的方法。
-
寻找开始的线索.. SO Question 或这个SO Question
-
请提供足够的代码,以便其他人更好地理解或重现问题。
【问题讨论】:
我已经通过拟合大多数情况来完成 VBA 脚本,期望场景 4 和 6(第 1 列上的单一因素),我应该如何处理 VBA 脚本? 谢谢!!
子 scalanie1() Dim P As Range ' 变量 P 的声明 Dim komorka2 As Range ' 单元格声明 Application.DisplayAlerts = False For Each komorka2 In Selection ' 对于选择中的每个单元格 出错时继续下一步 如果 komorka2.Value = komorka2.End(xlToLeft).Value 那么 Range(komorka2, komorka2.Offset(columnoffset:=-1, rowoffset:=0)).Merge 万一 错误转到 0 Next komorka2 ' 转到下一个单元格 Application.DisplayAlerts = True 结束子【讨论】: