目的 自动将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
