Sub test() For r = 3 To Range(A1).CurrentRegion.Rows.Count dm = Cells(r, 1).Value If Val(dm) = sh000001 Then '判断上证还是深证，规则比较简单，无法准确判断创业板 URL = & dm '从腾讯证券接口获取数据 Else If Val(dm) < 600000 Then URL = sz & dm Else URL = sh & dm End If End If With CreateObject(msxml2.xmlhttp) '打开腾讯接口数据 .Open GET, URL, False .send sp = Split(.responsetext, ~) If UBound(sp) > 3 Then '把腾讯证券接口的数据分别写入excel对应单元格 Cells(r, 2).Value = sp(1) Cells(r, 4).Value = sp(3) Cells(r, 5).Value = Format(sp(30), 00:00:00) Cells(r, 6).Value = sp(4) Cells(r, 7).Value = sp(5) Else Cells(r, 3).Value = 代码错啦！ End If End With Next End Sub

excel里怎么用VBA清除几个区域的内容？

VBA清除区域内容常用的主要是ClearContents和Clear

1、ClearContents 清除所选区域中的内容，但是不会改变格式

我们写个简单的小程序操作下看,如下图：

sub test1()

Range(B1:B10).ClearContents'清除B1:B10中的内容，不改变格式

end sub

运行后如下效果

2、clear 清除所选区域中的所有内容，包括格式

sub test1()

Range(B1:B10).Clear'清除B1:B10中所有内容

end sub

效果如下：

相信您现在对这个了解了吧，很简单，不是么？

请使用ClearContents方法使用方法：

Range(需要去除的范围).ClearContents

这样就可以了。ClearContents只是清楚内容而已，

所以不会占用太大的资源。即使是清除所有数据，速度仍然是比较快的。

如果不太清楚可以看一下动图。

下面的代码可以复制：

Sub Run()

Range(A1).CurrentRegion.ClearContents

End Sub

2007excel如何合并多张工作表到一张？

2007excel如何合并多张工作表到一张？

其实回答这个问题我们之前都有回答过，比如用函数法、VBA法、PB法，透视表等等方法。

我今天还是和大家介绍一下VBA是如何合并多个工作表到同一个工作表吧!

如何在Excel中使用vba代码来完成多个工作表的汇总工作，我们经常需要处理如下图的工作表数据汇总工作，将其他月份的数据统一汇总到同一个工作表中。大多数人都是用手动粘贴复制来完成这个重复性的工作.

我们首先来看看动画完成的效果吧，如下图所示：

看了动画是不是感觉汇总多个工作表在几秒钟之间就是瞬间完成，如果是你自己手动复制粘贴，可能需要几分钟时间，当然你工作节约的这点时间，您可以休息或者在学习其他的技能。

附上我们的源代码：请不要介意，为什么是图片，因为放置代码，会导致变形，我们会给你一个附件来下载这个代码。

以上就是我们今天和大家说的将多个工作表汇总到一个工作表，其实VBA代码学习起来非常简单。如果大家有不明白的或者不懂的可以在下方留言，我们会一一解答的。

我是Excel教案，关注我持续分享更多的Excel技巧！

如果所有的表的格式，以及各单元格的位置都相同，那低手有个不用编程的法：

把所有的表都复制到一个工作簿中。也不是很麻烦，因为复制的目标既可以是当前工作簿，也可以是已经打开的其他工作簿。

收集完所有表之后，再从中任选一张，复制到所有工作表的最后，作为汇总表，清空里面的数据。

在第一个数据单元格里，输入＝号，点击第一张分表的对应单元格，按住Shift，再点击最后一张分表的对应单元格，那这个单元格就是所有分表相应单元格的和。

将这个单元格复制到汇总表的所有数据单元格。