哪位VBA高手帮忙解析以下下面的句子，希望逐行解析。

Private Sub Worksheet_Change(ByVal Target As Range) '编辑事件发生

If TargetCount > 1 Then Exit Sub 'Target发生编辑的单元格（暂名为X，下同） 若不止一个单元格则退出程序，什么也不干

If Target = "" Then Exit Sub '若X被清空，则退出程序，什么也不干

If TargetColumn <> 1 Then Exit Sub '若X非A列，则退出程序,什么也不干

Dim r1, m&

Set r1 = Sheet2[a:a]Find(TargetValue, , , 1) '在Sheet2的A列查找X

If r1 Is Nothing Then '如果没找到

    m = Sheet2[a65536]End(xlUp)Row + 1  '取Sheet2A列最下方非空单元格行号，并加1 相当于接着

    Sheet2Cells(m, 1) = TargetValue '将X值写入Sheet2第1列最下方

End If

End Sub

'该程序功能，在当前工作表的A列录入数据。在Sheet2的A列生成不重复列表  鉴定完毕

楼上的程序写得很好，不过我觉得把这个程序放到双击事件里要好些

选中要填充的单元格，然后双击就填充

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rng As Range

Set rng = Target

arr = Array("姓名", "电话", "地址")

If rngCount = 1 Then

rngResize(3, 1) = ApplicationWorksheetFunctionTranspose(arr)

End If

End Sub

以上就是关于哪位VBA高手帮忙解析以下下面的句子，希望逐行解析。全部的内容，包括:哪位VBA高手帮忙解析以下下面的句子，希望逐行解析。、EXCEL--请高手编写vba程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！