Sub DeleteEmptyRows() Dim LastRow As Long, r As Long LastRow = ActiveSheet.UsedRange.Rows.Count LastRow Step Then Rows(r).Delete Next r End Sub '删除空列 Sub DeleteEmptyColumns() Dim LastColumn As Long, c As Long LastColumn = ActiveSheet.UsedRange.Column
'删除空行 Sub DeleteEmptyRows() Dim LastRow As Long, r As Long LastRow = ActiveSheet.UsedRange.Rows.Count LastRow = LastRow + ActiveSheet.UsedRange.Row - Then Rows(r).Delete Next r End Sub '删除空列 Sub DeleteEmptyColumns() Dim LastColumn As Long, c As Long
from bs4 import BeautifulSoup import requests import time import re url = 'http://search.qyer.com/hotel/89580_4.html' urls = ['http://search.qyer.com/hotel/89580_{}.html'.format(str(i)) for i in range(1,10)] # 最多157页 infos = [] # print(urls) # 批量爬取数据