发布网友 发布时间:2022-06-28 22:59
共3个回答
热心网友 时间:2023-10-11 00:31
打开开发工具,点击Visual Basic,
菜单插入-——模块
复制下列代码到里面去
Sub 宏2()
Dim i, j
j = 2
For i = 2 To Range("a65336").End(xlUp).Row
C = Cells.Find(What:=Range("Q" & i), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False)
If Not C Is Nothing Then
Cells(j, 18).Value = ActiveCell.Row
Cells(j, 19).Value = ActiveCell.Column
j = j + 1
End If
Next
End Sub
然后关掉这个窗口回到excel里面点击“ 宏”
然后点执行试试
记得先备份
追问非常感谢
热心网友 时间:2023-10-11 00:31
在F6单元格输入以下公式
热心网友 时间:2023-10-11 00:32
这样的数据处理,使用VBA代码较为合适,建议使用。