竹笋

双手合十

Category: 笔记

VBA代码每3行清除后2行/删除单元格前3位

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

如果想直接删除3行中的后两行:

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

删除单元格前3位

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

另外,七夕这天试着封装了一个Python代码,很开心。

VBA代码以分类页做参考自动数据分类

一些简单有参考的数据分类

把分类页的AB列数据做为词典

然后循环对照填写

(爆炸好用 感恩计算机)

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()

更新-批量复制关键词搜索并返回结果-2023-8-22

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')

Excel中MID函数SEARCH函数使用方法

基础:MID(text, start_num, num_chars)

=MID("Hello, World!", 8, 5) 这个例子中,我们从字符串"Hello, World!"中提取长度为5的子字符串。 `start_num` 参数为8,表示从第8个字符开始,所以提取的子字符串为"World",最后的结果是"World"。

获取@用户名:之间的用户名

=MID(A2,SEARCH("@",A2)+1,SEARCH(":",A2)-SEARCH("@",A2)-1)

获取文本中的http链接

=MID(A2,SEARCH("http",A2),LEN(A2)-SEARCH("http",A2)+1)

从文本中提取()内字符

=MID(C1, FIND("(", C1)+1, FIND(")", C1)-FIND("(", C1)-1)

注意全角半角

相柳

困得发疯。为相柳哭到凌晨4点半。

相柳为什么不能和小夭在一起,为什么一定消除狌狌镜里小夭的回忆,为什么要把小夭推开那么远。小夭出场时是在感情里最无所谓的女子,黄帝也讲能保她嫁给任何喜欢的男子,为什么小说最后她被伤到一度心死以至于愿意做不下玉山的王母。QAQ 涂山璟有什么好,自私的涂山璟整日给小夭画饼,远不如防风邶懂她,更不如相柳暗自地、不肯被发觉地实现了小夭的愿望。浩瀚而浪漫的景色,哪个不是相柳给的?

有力自保、有人相依、有处可去,愿你一世安乐无忧

心疼我的宝宝柳狗狗邶(哭)。

防风邶

美学摘抄

《美学的基本理论与北大的美学传统》 叶朗 19个笔记

◆ 正文

很多人说,中国文化是审美的文化、诗意的文化,中国哲学是审美的哲学、诗意的哲学。中国美学最大的特点,是和人生紧密结合,它渗透到我们民族精神的深处,因而对中国文化发展起到十分深刻的影响。

而冯友兰先生的突出贡献是关于人生境界的理论。我刚才讲了,冯先生说我们中国传统哲学最有价值的理论是关于人生境界的理论。

世界是无限的大,但是对于他来讲没有意义,只有这个办公室对他有意义

哲学和美学的意义就是要提升大家的人生境界,我们中国人非常强调这个境界,我刚才说从孔子开始形成人生境界的学说。

冯先生说:“我就好像一头老牛躺在那个地方,把过去吃下的东西吐出来咀嚼,其味无穷,其乐也无穷。古人所谓‘乐道’大概就是这个意思吧!”“乐道”,就是一种精神的愉悦,一种精神的享受。同学们你们有没有这种体会,比如说你晚上看一本经典著作,你看到有一段特别精彩的东西,你就会感到非常激动,有一种喜悦,因为真理的光芒照耀到你的全身,这就是“乐道”。

一个人生活在北京大学这种环境和氛围中,会油然产生一种崇高感、一种历史感、一种使命感。

邓以蛰先生还为我们国家培养了一位伟大的科学家——他的儿子,两弹元勋邓稼先。

为什么要强调朱光潜呢?因为朱先生更重视基础性的理论工作,重视美学和人生的联系,他突出了对意象的研究,这对我们把握中国美学宏观的方向很有意义。

意象、感兴、人生境界这三个核心概念都是中国美学的概念。意象就是我们讲的审美对象,美在意象;感兴相当于西方哲学家狄尔泰到迦达默尔所说的“体验”,就是审美感受,审美经验,简单地说就是美感;人生境界就是说审美活动对人生的意义最终归结起来是提升人生境界。

季先生说那些广阔世界的大月亮比不上他故乡的小月亮,这并不是作为物理实在的月亮的不同,他那个心爱的小月亮不是一个物理的实在,而是一个情景相融的意象世界

刚才王恩哥院长讲话就引了唐代哲学家柳宗元的一句话“美不自美,因人而彰”,柳宗元说兰亭如果不碰到王羲之这些人去的话,那里的泉水、竹子就在山里面荒芜了,因为没有人来照亮它。

法国哲学家萨特有一段话有同样的意思,他说人是万物显示自己的手段。

德国的哲学家席勒也说过一句话,他说:“事物的实在是事物的作品”。

事物的显现是人的作品”

“你未看此花时,此花与汝心同归于寂。”

“你来看此花时,此花颜色一时明白起来”

美学研究的全部内容,最后归结起来就是引导人们去努力提升自己的人生境界,使自己具有一种光风霁月般的胸襟和气象,去追求一种更有意义、更有价值、更有情趣的人生。

二百年前,哲学大师黑格尔在海德堡大学开始他的哲学史的讲演的时候,曾经对他那个时代轻视精神生活的社会风气感慨万分。他说:“现实上很高的利益和为了这些利益而作的斗争,使得人们没有自由的心情去理会那种较高的内心生活和较纯洁的精神活动,以致许多优秀的人才都为这种环境所束缚,并且部分地被牺牲在里面。”

人就可能成为马尔库塞所说的“单面人”,成为没有精神生活和情感生活的单纯的技术性的动物和功利性的动物。

开封记忆

◆ 开封记忆 关爱和

公元前225年,秦将王贲久攻大梁不下,乃决水灌城,魏亡,大梁也惨遭破坏。

960年,后周禁军大将赵匡胤陈桥兵变黄袍加身,建国号为宋。

开封地处中原,为四战之地,“在德不在险”的定都方略的确定,使得徘徊于建都洛阳还是开封的赵匡胤最终选择定都开封。

仁宗期间,范仲淹有“洛阳险固,而汴为四战之地,太平易居汴,即有事必居洛”的上书,被宰相吕夷简斥为“迂阔”之论。

宋徽宗听到金兵南下的消息后,急忙传位于太子赵桓,即钦宗,改年号为靖康。靖康元年(1126)正月、八月,金兵两次南侵。十一月,开封城破,宋钦宗求降。金兵在城中大肆抢掠。次年四月,金军俘虏徽、钦二帝北撤,囚居于黑龙江依兰。

1232年,金哀帝在与元军对垒弹尽粮绝之后出逃蔡州。

金朝诸王、后妃等皇室人员被元人押往漠北的和林(今蒙古国境内),几乎将百年前赵宋皇室被金虏走北国的情景重新上演!

洪武元年,朱元璋以开封府为北京,应天府为南京,复北宋之旧。后因感开封漕运不便,1378年取消开封北京称号,封于其第五子朱为周王,建藩开封。

朱允炆即位后,在开封的周王朱因参与谋反被发配云南,开封最高的宋代建筑繁塔也因此事被铲掉四层,所谓“铲王气”。

1953年,因京广、陇海铁路在郑州交汇的原因,河南省会迁移郑州,开封降为地级省辖市。

一列链接赋给一列纯文字成为超链接

如果数据量比较小的话

其实直接复制-选择性粘贴+加 就可以了

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

庄子浅说

《庄子浅说》 陈鼓应 摘抄

  • 庄子-曹商-痔疮
  • 织草鞋-斯宾诺莎
  • 庄子-惠子 郢ying人 石匠
  • 河伯欣然自喜,以天下之美尽在己
  • 庖丁解牛 勿强行 毋妄为
  • 福轻乎羽 祸重乎地
  • 无用之用 役用为牺牲品 淮阴被诛 萧何系狱
  • 打破形骸的拘囚
  • 德有所长 而形有所忘
  • 以有涯随无涯 殆已
  • 凫胫虽短,续之则忧;鹤胫虽长,断之则悲
  • 为混沌凿七窍
  • 人事无异于罗网 山林欤,皋壤欤,使我欣欣然而乐欤
  • 天地有大美而不言,四时有明法而不议,万物有成理而不说
  • 齐物论-隐机 人世间-心斋 大宗师-坐忘
  • 何其愈甚邪?在屎溺
  • 禅让体制好坏也是有时间性的 燕王哙和燕相子之因禅让而灭绝
  • 天无私覆,地无私载

瞧,这个人

《瞧,这个人》摘抄

  • 如果你联想到古代德国人(不单单是古代德国人)饭后如野兽般狂饮的习惯,那么你也就能够理解德国精神起源于何处了——那就是极其紊乱的肠胃系统。德国精神就是消化不良症,它消化不了任何东西。
  • 不要相信任何不是在户外、在自由的身体运动伴随下产生的思想。
  • 精神本身只不过是新镇代谢的一种形式。
  • 我曾将自己的自我与他人的自我等同,处于一种“无私”的状态,忘记了要与其他人保持距离。
  • 自我壁垒是精神孕育的一种首要的本能的防范措施。
  • 我只信奉法国的文化,欧洲其他自称为“文化”的东西不过是一种误解罢了。
  • 《曼弗雷德》
  • 见到一个德国人就会使我的消化系统受到阻碍。
  • 另一种形式的谨慎和自我防卫就是要尽可能少地做出反应,使自己远离那些必须要放弃“自由”和“主动权”的环境和情形,以免沦为一个单纯的反应媒介。
  • 爱情,它的手段是战争。
  • 甚至在其最陌生、最艰难的问题上也肯定生命,生命意志在其最高类型的牺牲中感受到自己生生不息的乐趣——我把这叫作狄奥尼索斯式的,我猜想这才是通往悲剧诗人心理学的桥梁。
  • 戈尔迪之结-亚细亚之王-快刀斩乱麻
  • 我不再用语言说话,而用闪电说话!
  • 我所理解的哲学家就是一堆可怕的炸药,他使一切事物陷入危险当中。

  • 我们要像强烈的风高踞于他们之上,与大鹰为伍,与雪为伍,与太阳为伍:强烈的风就是如此生活着。
  • 查拉图斯特拉对于一切低地,乃是一阵强烈的风;他对他的敌人和一切吐唾沫的人作如是的忠告:“当心不要对风吐唾沫!”
  • 毕竟假如我注定要担当伟大的使命,这样做只会对我更加不利。对此,我的回答是,这些琐碎的事情——饮食、地点、气候、一个人的休养方式、自私自利的诡辩——要远远比迄今为止人们所重视的一切更加重要。
  • 即使在身患重病期间,我也没有变得病态。你要是想在我的天性中找到任何一点狂热的成分,只怕是白费力气。
  • 可是,没有人可以从包括书本在内的事物中获得比他已经知道的更多的东西。凡是他的体验无法使他通达的东西,他就听不到。
  • 超人”这个词,指的是天资最为罕有、好运最为丰厚的那类人,他们对立于“现代”人,对立于“善良”人,对立于基督徒和其他的虚无主义者。