网页中复制的数据如何清除按钮格式

walnuter · 发表于 2018-6-20 14:33

本帖最后由 walnuter 于 2018-6-20 14:35 编辑

求助各位大神，网页中复制的数据如何清除按钮格式，使用右键“匹配目标格式”，会导致按钮和数据全都消失，请问什么好办法吗？

不知道为什么 · 发表于 2018-6-20 14:43

Sub test()
  Dim shp As Shape
  For Each shp In Sheets("sheet1").Shapes
shp.Delete
  Next
End Sub

walnuter · 发表于 2018-6-20 17:00

不知道为什么发表于 2018-6-20 14:43
Sub test()
Dim shp As Shape
For Each shp In Sheets("sheet1").Shapes

非常感谢，不知道是不是我操作有问题，按钮虽然消失了，但是数据同时也没了

不知道为什么 · 发表于 2018-6-20 17:21

walnuter 发表于 2018-6-20 17:00
非常感谢，不知道是不是我操作有问题，按钮虽然消失了，但是数据同时也没了

是的，我刚测试了下，是这样的。如何解决这个我也不懂了。等其它同学来看看了啊

walnuter · 发表于 2018-6-20 17:29

不知道为什么发表于 2018-6-20 17:21
是的，我刚测试了下，是这样的。如何解决这个我也不懂了。等其它同学来看看了啊

还是非常感谢

		自动登录	找回密码
密码			免费注册

[求助] 网页中复制的数据如何清除按钮格式