VBA 范围内的顺序错位判断

On_fire · 发表于 2022-11-29 08:19

VBA 范围内的顺序错位判断

*

Sheet1是源数据

*

Range(“D11:R13”)是要判断的范围/区域

#注:不参加处理的数据暂时删掉

*

代码逻辑如下,

1. 以Range(“D13:R13”)左到右的顺序单元格字符为标准

2. 对比Range(“D11:R12”),判断第11及12行的字符是否有偏移的情况?

3. 如果偏左就要加删去线, 如果偏右就是标粗标红

*

Sheet1(2)是模拟

*

恳请大神, 老师出手帮忙…

陆离Lowry · 发表于 2022-11-29 09:24

On_fire · 发表于 2022-11-29 09:49

陆离Lowry 发表于 2022-11-29 09:24

谢谢老师帮忙…

但这题是单元格字符位置的判断,

比如,

载图中的字符, 结果就会判断错误?

陆离Lowry · 发表于 2022-11-29 10:19

On_fire 发表于 2022-11-29 09:49
谢谢老师帮忙…但这题是单元格字符位置的判断, 比如, 载图中的字符, 结果就会判断错误?

用CODE.........

LIUZHU · 发表于 2022-11-29 10:26

一个疑问，P11=15，这个为什么添加删除线，从13行判断，Q13=14，并不满足左偏移条件，只是R13=15，到底偏移几列都算偏移？

On_fire · 发表于 2022-11-29 10:36

LIUZHU 发表于 2022-11-29 10:26
一个疑问，P11=15，这个为什么添加删除线，从13行判断，Q13=14，并不满足左偏移条件，只是R13=15，到底偏移 ...

老师好,

以第13行的顺位为标准,

第13行的15=第15位

第12行的15=第15位

第11行的15=第13位

所以第11行的15是偏左了, 要删去线

陆离Lowry · 发表于 2022-11-29 10:44

陆离Lowry 发表于 2022-11-29 10:19
用CODE.........

怕你一会有说中文，一行中不会出现重复的话，用find.column和第三行的column比吧

LIUZHU · 发表于 2022-11-29 10:47

On_fire 发表于 2022-11-29 10:36
老师好, 以第13行的顺位为标准, 第13行的15=第15位第12行的15=第15位第11行的15=第13位所以第11行的15是 ...

明白了，原来是这个逻辑

LIUZHU · 发表于 2022-11-29 10:53

本帖最后由 LIUZHU 于 2022-11-29 10:54 编辑

用WPSJS宏解决的，和VBA差不多，但是要用WPS测试

LIUZHU · 发表于 2022-11-29 10:55

附件在此，需要用WPS打开测试

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

[求助] VBA 范围内的顺序错位判断