EXCEL VBA,D列中有连续多个重复值,如何得到第一行和最后一行的行号

发布网友发布时间：2023-08-19 05:50

共2个回答

热心网友时间：2023-09-07 20:14

Dim a as string

a=[d1].value

dim r as long,c as integer

r = 1

dim i as long

for i = 1 to [d65536].end(3).row

if a <>cells(i,4) then

if a<>1 then msgbox "起始行为：" & r & ", 终止行为：" & c

r = i

a = cells(i,4)

else

c =i

end if

next

手机打的，细节上可能有错错误，你先看看吧。

热心网友时间：2023-09-07 20:14

判断前一行和后一行不相等，如果成立就输出他们的行号

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com