谁懂啊lyl好厉害啊太好了lyl即将抵达她尊贵的学院路！！！

如果数据量比较小的话

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

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

贵17/18楼B区到底是谁天天吵闹烦死了仿佛图书馆情侣打闹声音还特别大 贵楼层全是安安静静处理数据的怎么就他们小隔间这么吵时不时一阵爆笑好讨厌:0！🔪🩸💀

感恩chatgpt 没有你我会很为难

Sub ExtractRedText()
    Dim rng As Range
    Dim cell As Range
    Dim text As String
    Dim i As Integer
    Dim redText As String
    
    Set rng = Range("H:H") '要操作的单元格范围，这里为H列
    
    For Each cell In rng
        text = cell.Text '获取单元格的文本
        
        For i = 1 To Len(text)
            If cell.Characters(i, 1).Font.Color = RGB(255, 0, 0) Then '判断字符的颜色是否为红色
                redText = redText & Mid(text, i, 1) '将红色字符逐个添加到红色文本字符串
            End If
        Next i
        
        cell.Offset(0, 1).Value = redText '将红色文本放置到相邻单元格中
        
        redText = "" '重置红色文本字符串，准备处理下一个单元格
    Next cell
End Sub

重游旧地，厚重的浅灰色砖楼、摇曳的树影、红色的砖瓦、波澜不断的湖水，哪个不令人心驰神往？过往的心结总算被斩断了吧？接下来要走向更远处。

其他：

《庄子浅说》 陈鼓应 摘抄

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

6.29

下班路上，听到前面的人边走边用打火机打火，咔哒咔哒，一阵烟雾挪移到身后。他身边是个比我还要矮的男人，背上是相比身形颇为巨大的背包，佝偻着，皮肤黝黑，衣鞋也被黄土侵蚀。烈日下，人们不发一言地向前走。

谁不辛苦？谁不为无意义却能糊口的生活奔波？几千年了，何时才能自由？相比而言，我已经是幸运的一个。幸运的人总该为众人想想自由的法子，哪怕说句安得广厦千万间。不然这种的幸运不过是自私与狭隘的诅咒吧。

《瞧，这个人》摘抄

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

• 我所理解的哲学家就是一堆可怕的炸药，他使一切事物陷入危险当中。

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

水灌了一壶高硼硅热水壶，拿去太阳下晒。据说端午这种“极阳之水”有各类用途，既然是醒了，便张罗起这种封建迷信。上次在建国门奇遇的风水大师，多少唤起了我继续搞玄学的兴趣。

小李抵达房间之前，我已经拖好地洗好衣服。引她上楼，用刚晒好的水煮沸泡了小赤甘请她也喝，口感丰厚。某种程度上，这种水像是小说中雪天攒在坛子埋在桂树下等开春启出来的露水。烧沸后拿红葵花杯盛着，浪漫大于实用主义。

星光买了煎饼，躺平到4点出门。小李在我脸上展露了她出色的化妆技术。4点斜下的阳光，波光粼粼如碎钻洒满的泉水。唯一的乌龙是，小李放在凉亭的手机被来来往往拍照的同学错拿了，慌张很久，去了保卫处查了监控。最后不得不感叹苹果查找设备的功能还挺好用，可以让静音的设备发出声响。

两台微单收获了很多画面，我们小李欢呼雀跃连连称赞（笑）。

其他：

• lyl在摆弄我的打字机
• 鲶鱼的枕头好像春联()
• 慢充话费一单到账另一单已经超过24h了__
• 大宝贝今天会好一点吗？大宝贝什么时候会好啊 心碎