Sub ClearRowsInSpecificSheet()
Dim ws As Worksheet
Dim lastRow As Long
Dim rowNum As Long
Dim rowCount As Long
Dim i As Long

' 指定工作表名称
Set ws = ThisWorkbook.Sheets("处理页")

' 设置起始行和每组行数
rowNum = 1 ' 起始行号
rowCount = 3 ' 每组行数

' 获取最后一行的行号
lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

' 循环处理每组行
Do While rowNum <= lastRow
    ' 清除后两行数据
    For i = 1 To 2
        If rowNum + i <= lastRow Then
            ws.Rows(rowNum + i).ClearContents ' 清除内容
        End If
    Next i
    
    ' 移动到下一组行
    rowNum = rowNum + rowCount
Loop End Sub

Sub ClearRowsInSpecificSheet()
Dim ws As Worksheet
Dim lastRow As Long
Dim rowNum As Long
Dim rowCount As Long
Dim i As Long

' 指定工作表名称
Set ws = ThisWorkbook.Sheets("处理页")

' 设置起始行和每组行数
rowNum = 1 ' 起始行号
rowCount = 3 ' 每组行数

' 获取最后一行的行号
lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

' 循环处理每组行
Do While rowNum <= lastRow
    ' 清除后两行数据
    For i = 1 To 2
        If rowNum + i <= lastRow Then
            ws.Rows(rowNum + i).ClearContents ' 清除内容
        End If
    Next i
    
    ' 移动到下一组行
    rowNum = rowNum + rowCount
Loop End Sub

Sub DeleteBlankRowsInSpecificSheet()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

' 指定工作表名称
Set ws = ThisWorkbook.Sheets("Sheet1")

' 获取最后一行的行号
lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

' 从最后一行往上遍历每一行
For i = lastRow To 1 Step -1
    ' 检查当前行是否是空行
    If WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
        ws.Rows(i).Delete ' 删除空行
    End If
Next i End Sub

Sub DeleteFirstThreeCharacters()
Dim ws As Worksheet
Dim lastRow As Long
Dim rng As Range
Dim cell As Range

' 设置工作表
Set ws = ThisWorkbook.Sheets("Sheet1") ' 将 "Sheet1" 替换为你的工作表名称

' 找到最后一行
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 设置要处理的范围（这里假设你要处理的是 A 列）
Set rng = ws.Range("A1:A" & lastRow)

' 循环处理每个单元格
For Each cell In rng
    If Len(cell.Value) > 3 Then
        cell.Value = Mid(cell.Value, 4) ' 删除前3个字符
    End If
Next cell End Sub

Sub Fill-FromReference()
    Dim wsMain As Worksheet
    Dim wsReference As Worksheet
    Dim mainValue As String
    Dim referenceRange As Range
    Dim foundCell As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置分类页工作表和主工作表
    Set wsMain = ThisWorkbook.Sheets("主工作表名")
    Set wsReference = ThisWorkbook.Sheets("分类页")
    
    ' 获取主工作表最后一行的行号
    lastRow = wsMain.Cells(wsMain.Rows.Count, "D").End(xlUp).Row
    
    ' 设置分类页的查找范围为 A 列
    Set referenceRange = wsReference.Range("A:A")
    
    ' 循环每一行
    For i = 1 To lastRow
        ' 获取主要列中的值
        mainValue = wsMain.Cells(i, "D").Value
        
        ' 在分类页中查找匹配的值
        Set foundCell = referenceRange.Find(What:=mainValue, LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not foundCell Is Nothing Then
            ' 如果找到匹配的值，则填写
            wsMain.Cells(i, "G").Value = foundCell.Offset(0, 1).Value
        Else
            ' 如果未找到匹配的值，则填写空值
            wsMain.Cells(i, "G").Value = ""
        End If
    Next i
End Sub

from selenium import webdriver
import time
from selenium.webdriver.support.ui import WebDriverWait
from selenium.webdriver.support import expected_conditions as EC
from selenium.webdriver.common.by import By


driver = webdriver.Edge()

# 打开网页
driver.get("https://填写.cn/")
time.sleep(10)  # 根据实际情况调整等待时间

# 需要搜索时，返回到目标页面进行搜索
driver.get("https://填写list")

# 找到搜索框元素并输入搜索内容
search_box = driver.find_element(By.CSS_SELECTOR, "input[placeholder='限制输入300字符，不支持单个字、字母或数字输入']")
search_box.click()
search_box.clear()
search_box.send_keys("关键词")

# 定位到按钮元素并点击
button = driver.find_element(By.CLASS_NAME, "el-button.el-button--primary.el-button--small")
button.click()

# 等待页面加载完成
time.sleep(10)  # 根据实际情况调整等待时间

# 等待搜索结果加载完成
wait = WebDriverWait(driver, 20)
result_element = wait.until(EC.presence_of_element_located((By.CLASS_NAME, "total")))

# 获取搜索结果的文本内容
result_text = result_element.text

# 输出结果
print(result_text)

# 关闭浏览器
driver.quit()

from selenium import webdriver
import time
from selenium.webdriver.support.ui import WebDriverWait
from selenium.webdriver.support import expected_conditions as EC
from selenium.webdriver.common.by import By
import pyperclip

clipboard_data = pyperclip.paste()
delimiter = "\n"  
driver = webdriver.Edge()
driver.get("https://链接.cn/")
time.sleep(6)  # 根据实际情况调整进入网页的等待时间
driver.get("https://链接list")
keywords = clipboard_data.split(delimiter)
results = []  # 用于保存结果
for keyword in keywords:
    search_box = driver.find_element(By.CSS_SELECTOR, "input[placeholder='限制输入300字符，不支持单个字、字母或数字输入']")
    search_box.click()
    search_box.clear()
    search_box.send_keys(keyword)
    button = driver.find_element(By.CLASS_NAME, "el-button.el-button--primary.el-button--small")
    button.click()
    time.sleep(1)
    wait = WebDriverWait(driver, 3)  # 时间可调整
    result_element = wait.until(EC.presence_of_element_located((By.CLASS_NAME, "total")))
    result_text = result_element.text
    result = f"{result_text}*{keyword}"  # 可调整连接方式
    results.append(result.strip())  # 移除结尾的换行符和空格
with open('D:\\结果.txt', 'w') as f:
    for result in results:
        f.write(result + '\n')

Sub AddHyperlinksFromText()
    Dim ws As Worksheet
    Dim rngSource As Range
    Dim rngTarget As Range
    Dim cellSource As Range
    Dim cellTarget As Range
    Dim address As String
    
    Set ws = ThisWorkbook.Sheets("正中备份") '指定要处理的工作表
    
    Set rngSource = ws.Range("B1:B300") '源数据所在的单元格范围，这里以T1:T10为例
    Set rngTarget = ws.Range("A1:A300") '目标单元格范围，这里以S1:S10为例
    
    For Each cellSource In rngSource
        address = cellSource.Value '获取源单元格中的字符串作为超链接地址
        
        Set cellTarget = rngTarget.Cells(cellSource.Row, 1) '获取对应行的目标单元格
        
        If address <> "" Then '判断地址字符串是否非空
            cellTarget.Hyperlinks.Add cellTarget, address '在目标单元格中添加超链接
        End If
    Next cellSource
End Sub