您的位置:奥门新浦京网址 > 奥门新浦京网址 > 如何用Excel查找重复项,Excel怎么抓取网络数据

如何用Excel查找重复项,Excel怎么抓取网络数据

发布时间:2019-11-04 23:51编辑:奥门新浦京网址浏览(106)

    问题:在平时工作中会遇到,知道其中一个数据,比如姓名,在表格中输入姓名后,想要自动带出网页中该姓名对应的相关数据,比如该姓名的电话,地址等信息,如何做到呢?

    问题:如何用Excel查找重复项?

    问题:在Excel中,怎样统计男生与女生的人数?

    回答:

    回答:

    回答:

    Excel抓取并查询网络数据可以使用“获取和转换”+“查找引用函数”的功能组合来实现。

    图片 1

    可以用Countif这个函数

    例:下图是百度百科“奥运会”网页中的一个表格,我们以此为例实现抓取该表格至Excel中,并且能够通过输入第几届来查询对应的举办城市。

    首先感谢邀请:如图如何用EXCEL查找重复项?改进一下,如何把EXCEL的重复项去除?

    如图

    图片 2

    下面我仍然以经典的2003版全为例讲解一下步骤:

    选定性别列,然后分别以男,女 作为搜索统计条件,就可以很快的得出统计结果了。

    Step1:使用“获取和转换”功能将网络数据抓取至Excel中

    依次点击“数据选项卡”、“新建查询”、“从其他源”、“从Web”。

    图片 3

    弹出如下窗口,手动将百度百科“奥运会”的网址复制粘入URL栏,并点击确定。

    图片 4

    Excel与网页连接需要一定时间,稍等片刻后会弹出如下窗口,左边列表中的每个Table都代表该网页中的一个表格,挨个点击预览后发现,Table3是我们所需的数据。

    图片 5

    点开下方的“加载”旁边的下拉箭头,选择“加载到”。

    图片 6

    在弹出的窗口中,在“选择想要在工作薄中查看此数据的方式”下选择“表”,并点击加载。

    图片 7

    如图,网页表格中的数据已被抓取至Excel中。

    图片 8

    依次点击“表格工具”、“设计”,将“表名称”改为奥运会。

    图片 9

    1、选中数据的一列,菜单栏“数据”--“筛选”--“高级筛选”

    写成公式就是

    Step2:使用“查找与引用”函数实现数据查询

    建立查询区域,包含“届数”和“主办城市”,在届数中随意选取一届输入,下图输入“第08届”,在主办城市下输入vlookup函数,可以得到第08届奥运会的主办城市是巴黎,当更改届数时,对应的主办城市也随之变动。

    公式:=VLOOKUP([届数],奥运会[#全部],4,0)

    图片 10

    注意点:若网页中的数据变动较频繁,则可以设置链接网页的数据定时刷新:

    ①将鼠标定位于导入的数据区域中,切换到选项卡,点击下拉箭头→

    图片 11

    ②在弹出的对话框中,设置,比如设置为10分钟进行刷新。这样,每隔10分钟数据就会刷新一次,时刻保证获取的数据位最新的。

    图片 12


    style="font-weight: bold;">「精进Excel」系头条签约作者,关注我,如果任意点开三篇文章,没有你想要的知识,算我耍流氓!

    回答:

    大家好,我是@Excel实例视频网站长@欢迎私信或者邀请我回答Excel相关问题!


    有人在群里问手机号怎么批量查归属地,第一感觉是百度一下,结果还真没找到好用的,既然如此,我就自己写一个吧!首先找了几个webapi,找到个挺好用的,就用vba写了个自定义函数,测试下感觉还是挺好用,速度也挺快

    图片 13

    style="font-weight: bold;">源文件下载链接请私信回复63005即可

    使用方法:

    1.在本表中直接在A1列输入手机号即可

    2.要在其他表中,alt+f11打开vbe编辑器,复制模块中代码,在你的新表中建立模块,粘贴代码即可

    3.函数参数说明

    GetPhoneInfo(号码,参数)

    号码—即单个手机号

    参数(1,2,3,4):1-城市,2-省,3-运营商, 4-全部

    代码如下

    Dim ObjXML As Object

    Function GetPhoneInfo(number, Optional para As Byte = 1)

    '获取手机号对应的基本信息 默认为城市

    'para:1-城市,2-省,3-运营商,4,全部

    Dim s As String

    s = GetBody("" & number)

    Select Case para

    Case 1

    GetPhoneInfo = HtmlFilter(s, "City"":""", """")

    Case 2

    GetPhoneInfo = HtmlFilter(s, "Province"":""", """")

    Case 3

    GetPhoneInfo = HtmlFilter(s, "TO"":""", """")

    Case 4

    GetPhoneInfo = HtmlFilter(s, "City"":""", """") & "," & HtmlFilter(s, "Province"":""", """") & "," & HtmlFilter(s, "TO"":""", """")

    End Select

    GetPhoneInfo = Replace(GetPhoneInfo, " ", "")

    End Function

    Private Sub Test()

    Dim i&, j&, k&, arr, brr

    url = ""

    Debug.Print GetBody(url)

    End Sub

    '''如果出现乱码,UTF-8可改为GB2312

    Public Function GetBody(ByVal url$, Optional ByVal Coding$ = "utf-8")

    On Error Resume Next

    Set ObjXML = CreateObject("Microsoft.XMLHTTP")

    With ObjXML

    .Open "Get", url, False, "", ""

    '.setRequestHeader "If-Modified-Since", "0"

    '.setRequestHeader "User-Agent", _

    ".Mozilla/5.0 (Windows NT 6.1; WOW64; rv:47.0) Gecko/20100101 Firefox/47.0"

    .Send

    GetBody = .ResponseBody

    End With

    GetBody = BytesToBstr(GetBody, Coding)

    Set ObjXML = Nothing

    End Function

    Public Function BytesToBstr(strBody, CodeBase)

    Dim ObjStream

    Set ObjStream = CreateObject("Adodb.Stream")

    With ObjStream

    .Type = 1: .Mode = 3: .Open:

    .Write strBody: .Position = 0: .Type = 2: .Charset = CodeBase

    BytesToBstr = .ReadText: .Close

    End With

    Set ObjStream = Nothing

    End Function

    Public Function HtmlFilter(ByVal htmlText$, ByVal Label1$, ByVal label2$)

    '返回html字符串lable1和最近的lable2标签中的数据

    Dim pStart As Long, pStop As Long

    pStart = InStr(htmlText, Label1) + Len(Label1)

    If pStart <> 0 Then

    pStop = InStr(pStart, htmlText, label2)

    HtmlFilter = Mid(htmlText, pStart, pStop - pStart)

    End If

    End Function

    回答:

    专业的人做专业事情。

    图片 14

    =COUNTIF(B:B,"女")

    如果只是偶尔有这个任务,还是在网上出点钱,找人做了。

    花费的钱真的不多。几百元足够了。

    2、根据需要点选方式,为了区分,我选择了“将筛选结果复制到其他位置”的方式,将“选择不重复的记录”打上对勾号,在“复制到”区域点一下需要复制到的地方,我选择了B1列。

    图片 15

    本文由奥门新浦京网址发布于奥门新浦京网址,转载请注明出处:如何用Excel查找重复项,Excel怎么抓取网络数据

    关键词: