目的   自动将excel将数据填充到web网页，将反馈的数据粘贴到excel表

准备   24KB的鼠标连点器软件（文末附链接）、Excel 宏模块

优势    不需要编程、web验证、爬虫等风险提示。轻量、稳定、安全。

缺点     效率没那么快

演示 

宏环境

        http://t.csdn.cn/DRAC2

宏按钮

        

 宏代码-----粘贴到宏代码编写

      需要修改的     1、起始单元格 

                              2、如果到达最后一行,则回到第一行 

Dim rng As Range

Sub 切换并复制()
    Dim data As String
    
    If rng Is Nothing Then ' 第一次运行宏时，记录起始单元格
        Set rng = Range("A1")
    End If
    
    ' 如果选定单元格有值，则复制到剪贴板
    If Not IsEmpty(rng) Then
        rng.Copy
        data = rng.Value
        Application.CutCopyMode = False
        ' 将数据复制到剪贴板
        With New MSForms.DataObject
            .SetText data
            .PutInClipboard
        End With
    End If
    
    ' 向下移动到下一个单元格
    Set rng = rng.Offset(1, 0)
    
    ' 如果已经到达最后一行，则回到第一行重新开始
    If rng.Row > ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Then
        Set rng = Range("A1")
    End If
    
    ' 将选定单元格设置为下一个单元格
    rng.Select
End Sub

插入新模块后，再复制粘贴如下代码

Dim rng As Range

Sub 切换并粘贴()
    Dim data As String
    Dim dataObj As New MSForms.DataObject
    If rng Is Nothing Then ' 第一次运行宏时，记录起始单元格
        Set rng = Range("B1")
    End If
    
     dataObj.GetFromClipboard ' 从剪贴板获取数据
    If dataObj.GetFormat(1) Then ' 检查剪贴板是否包含文本数据
        rng.Value = dataObj.GetText(1) ' 将文本数据粘贴到当前单元格
    End If

    
    ' 向下移动到下一个单元格
    Set rng = rng.Offset(1, 0)
    
    ' 如果已经到达最后一行，则回到第一行重新开始
    If rng.Row > ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Then
        Set rng = Range("B1")
    End If
    
    ' 将选定单元格设置为下一个单元格
    rng.Select
End Sub

最后鼠标连点器，录制操作行为、然后播放

https://wwa.lanzoub.com/i6wFj13ps6ba
密码:epp3