wps里如何统计尺寸（长和宽和高）一样的数量总数？
发布网友
发布时间：2022-03-25 16:03
共2个回答
热心网友
时间：2022-03-25 17:32
复制代码
Sub abc()
Dim a As String
Dim b As String
Dim j%,o%
On Error Resume Next
a = ThisWorkbook.Name
b = ActiveSheet.Name
with Workbooks(a).Sheets(b)
for j=1 to .range("c60000").end(3).row
if .range("d" & j)=.range("e" & j) and .range("d" & j)=.range("f" & j) then
o=.range("m60000").end(3).row+1
.range("m" & o)=.range("d" & j)
.range("n" & o)=.range("d" & j)
.range("o" & o)=.range("d" & j)
.range("p" & o)=.range("j" & j)
end if
next j
end with
end sub
如何在代码窗口粘贴
按alt +F8
找到abc 然后运行宏
热心网友
时间：2022-03-25 18:50
