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

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

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

缺点     效率没那么快

演示 

宏环境

        http://t.csdn.cn/DRAC2

宏按钮

        

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

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

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

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

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

Dim rng As RangeSub 切换并粘贴()Dim data As StringDim dataObj As New MSForms.DataObjectIf rng Is Nothing Then ' 第一次运行宏时，记录起始单元格Set rng = Range("B1")End IfdataObj.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 ThenSet rng = Range("B1")End If' 将选定单元格设置为下一个单元格rng.Select
End Sub

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

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