分别逛了

大阪

大阪世博会（去的那天人不算太多，时不时下雨。没有提前约到场馆，现场排队看了葡萄牙馆和印度馆。馆内建筑很多，细逛是逛不完的，沿着主路走了一圈。）（后面几天听说有地铁故障导致游客滞留园内的情况。）
大阪市立美术馆（因为住在天王寺附近，所以就把附近的美术馆看了。有梵高的特展。馆内不让拍照，排队的大家很有秩序，一步一步往前挪着。（很慢……）
阿倍野美术馆（去市立美术馆时走错了地方……不过在这里的文创店买到了喜欢的金鱼铃铛）（虽然买完发现made in china）
天守阁（服部平次同款场景。建在整齐石块上的建筑。）
心斋桥/道顿堀（知名打卡地。逛起来其实和国内城市的商业街差不太多。逛到饭店不知道吃什么走进了一家吉野家，发觉中国游客很多。）
通天阁（知名打卡地。店铺有很夸张的招牌。街道像国内的小吃街。街上各种烧烤和海鲜味混杂，浅逛了一下溜了。）
奈良
小鹿很可爱！
东大寺 也值得一看。巨大的木柱子很罕见。因为赶上盂兰盆节（其实就是中元节），夜间参拜开放了，还有点灯活动。
宇治
抹茶一条街。
平等院（是日本平安时代的建筑，被印在日本货币上。）
宇治神社（兔子神社，喜欢这边的兔子灯笼。）
宇治川以及桥边的紫式部雕像。
京都
伏见稻荷（非常经典的鸟居打卡地。）（人太多了，光线也不好，打卡到一些很糊的图x）
清水寺（重点可能不在寺而在二三年坂，路上穿和服拍照的游客不在少数。）
高台寺（夜间参拜开放，海报上说有“百鬼夜行”的活动，原来重点就是一场10分钟以内的动画投影吗？）
金阁寺（只能夸三岛由纪夫的文案写得好。）
京都大学（校园相比校外更清凉。远处通往银阁寺。）
鸭川（其实就是一条河……）
东京
上野公园/东京国立博物馆（上野公园这边有好多家博物馆。在东京国立博物馆看了大奥特展，彩色木版画和和服都非常漂亮。本馆没来得及逛，因为场馆5点准时赶人。）
涩谷/忠犬八公像（路口比想象中小，行人和想象中一样多。忠犬八公像前也是排队打卡的游客。）
秋叶原（一路上都是揽客的女仆。商店里是各种各样的二次元周边。高楼上的广告差不多涉黄了吧x）
三轩茶屋（p5r圣地巡礼，很开心，和游戏里几乎一模一样！）
东京大学/东京大学博物馆（体感比京都大学更沧桑，多欧式建筑，风格统一。博物馆和动森里面的博物馆很像，每个标本都有很好的台座。（但为什么有那么多鸡的标本？）
浅草寺（雷门大灯笼下有很大的松下电器赞助标识。通往大殿的路边是很整齐的商铺，后来听说这两边的摊子都是百年老店（妹妹说是“百年老摊”）……抽签得吉。）
银座（购物天堂。奢侈品大楼林立。算上汇率、退税以及折扣，在这边买奢侈品应该很划算。不买奢侈品也可以买本土特产之优衣库、无印良品等等，价格也是国内的六七折。）
区域交通

因为不是统一的运营公司所以坐车的时候需要费很多脑细胞区分线路……
大阪地铁巴士两日券（不要买。区分可坐不可坐的线路很困难，而且没回本x 不如直接刷ic卡）
JR mini pass（主要用于在京都、宇治、奈良之间的线路，也没回本x）
新干线（研究了很久的线上购票和自由席预定席的区别。差点因为下雨无法出发。另外车票是真的贵（京都-东京 700元人民币/人）。路上的景色有人说像江西，个人感觉也像浙江吧（没有浙江美）（可能价格上不如坐飞机）
东京地铁三日票（推荐买！用hopegoo 买到了半价票，非常划算，虽然最后一天没有用上，但也狠狠回本了哈哈）
住在哪里

本来以为是淡季，后来发现完全赶上盂兰盆节……酒店都有涨价。所有酒店都是用Agoda 订的。
Hotel Lucky（天王寺站附近，距离动物园前站更近。前台会说中文（很重要）。算是青旅，比较干净。
Sakura Terrace（京都站附近。有大浴池、鸡尾酒、按摩椅、自助洗衣间、自助制冰机、图书阅览处⬅️以上全部免费。住得非常舒服。房间还有小露台，可以望到八坂塔。（推荐）
Jinju Bessou（北千住站附近。民宿。房东阿姨是国人，有很认真地打理房子、迎接各国游客。）
吃了什么

感觉没有吃到什么特别好的日本饭……虽然很精致（）景区附近的拉面也很贵（70一碗）（而且很咸x）MUJI自己的那家餐馆还不错。另外在售货机/便利店买了很多苹果汁（？）明治牛奶也没有什么特别…… 吃得比较爽的是印度餐馆（因为看到很多家，所以可能是连锁？）和一家小小的泰国餐馆（想念泰国想念泰料）。吃得比较安心的是吉野家、麦当劳和星巴克。查询餐馆的工具是Google Map，可以看菜单。有推荐用tabelog 小程序查询餐馆的，但是点进去感觉很复杂还需要预约，就没再用。大众点评（美团）也有些许收录。

其他

保险买的是东京海上。支付一般是使用支付宝。有中行万事达卡保底。另外也确实需要现金，因为清水寺这种景点以及一些小餐馆只支持cash only。机票不知道是因为遇上暑假还是遇上节日，机票比7月翻倍地贵……上海飞大阪/东京便宜的时候只要三四百，完全没赶上！不过返航的东航飞机是一排八个座的大飞机，第一次坐，也是值了√

整体感受

有种无法放松的气氛x。天空和建筑大多是浅灰白的，很平面化。怀疑房子是抗震设计，所以显得很薄很脆x。像读过的日本文学一样，有种一切都在表面缠绕但不深刻的感觉x。规矩也很多，各种设计也很复杂（比如地铁）以至于回到国内都有点放不开x。特色景点可以逛，但是神社都长得差不多。风景不如浙江哈哈哈哈！可能最有性价比的地方是博物馆/美术馆和购物（？）（没有汇率差和免税的话也并不便宜）

– 考虑重新搭一下博客（装修）感觉目前这个模板不好放图片（不知道看过的博主都是怎么把图片拼进去的🤔）待我研究一下⏳

无标题

分别从CNAME、DNS、PAGE设置把之前的域名清理掉了这个网页总算恢复得差不多（流汗）本人还是太不擅长写长文写出来的东西总觉得丢人哈哈哈哈不过看着这种有“出版物”感觉的页面还是挺开心的

感觉tag标签很冗余所以全删掉吧（已清除√）

偶尔打开发现上一篇文章多了一条评论非常开心所以再发一张😊

玉龙雪山其实手里有日照金山的照片但是大家都发烂了所以在实况照片里找了点新鲜的（但没有金山）（377kb已通过微信压缩x)东巴谷就算日出结束了也很漂亮！雪山山脉则像温暖的臂弯！

另：过去我以为在旅行中风景最重要，“人之所罕至”之地的瑰丽风景最为值得。后来我觉得，相伴游玩的朋友才更关键，人是旅行中的变数，也是旅行中的最大惊喜。现在风景没那么重要了，在图像和视频充斥的网络，远方是相似的。朋友也不是必需品，反而是一种依赖。重要的其实是自己的心境。如果旅行只是为了追求安静的闲适感，那么在夏天的阴凉处来一壶茶读一本书也堪作人生自在之极。

另：在飞机上看到土地被分割成一片片的城市与村落，以及在路上散步时遇到一个个陌生的人时，总要想大家存在的意义是什么()

活着似乎单纯为了活着

世界失去了一个平凡、努力又很好的人。

怎么能不感伤。

HK

沿着弥敦道，旺角油麻地都是这样的街道。各种店员用小推车在窄道之间运送着货物。教学楼三维立体的校园，找校名红墙就上上下下找了几十分钟。整体走下来其实也不是特别大。

_近期旅行指南：

♦️误车后觉得最重要的：预留一小时上西九龙高铁。

♦️八达通可以提前用八达通app开旅客版。但基本上只有坐小巴必须用上，别的大部分支付宝覆盖。

♦️港大可以打卡拍照的校名墙和纪念品中心在百周年校园那层坐扶梯再上一层。

忙中偷玩……目前在努力地改我不堪入目的开题报告（太能拖了我自责）

我悲伤的体验是来自于猫的。虽然大桔已经离世很久，有时候还会梦到他在身边。浅浅虽然是只橘猫，但满身的长毛、漂亮的脸颊、粘人的个性很像大桔。冬天他会怕冷地钻到被子里与我同眠，而且一定会卧在怀中：如果翻身背向他，他也要钻到正面去。很可爱。他的长毛衬得他的眼睛圆圆的，嘴巴会发出好听的喵喵声。他最壮实，四肢都要比玳瑁粗一圈，抱起来沉甸甸的。有年夏天或许是太热，也可能是和其他小猫打闹得厉害，他的长毛竟然褪成了短毛，变得憨憨的。我从学校回家见他，笑得不停。哪次电话里，母亲和我说他们把浅浅送到了二姨家，这次回来，又说某天他从二姨家跑了出去，就没再回来。我想，当年黑黑也是这样从奶奶家跑的。奶奶家外还是无尽可探索的田野，二姨家外又有什么呢，到处都是硬化的水泥。我想起大桔执意流浪在外时，藏入的院子好歹有流水可饮，浅浅又能吃到什么呢？我恨父亲总以不可靠又残暴的手段驱逐家里的猫，更恨母亲脱责于无能的配合。今天中元，原本打算到二姨家把浅浅接回，如今只能在给大桔、黄黄、黑黑、蜗牛、犀牛等等烧纸的时候多烧一把。边烧边回忆他们同我般原可避免的悲伤命运，哭得不能自已。

无心于四周

2023-8-28

李娥牵着曾舜的手走在街上时，是无心于四周的景色的。

她的心全在他身上——他的手掌、他不断摩挲她指甲的指尖、他如雕塑般曲线明朗的小臂、他说的叮叮当当的话、他身上温热皮肤的香味——他是她所爱的猎物，也是她脑中占据一切的病毒。

“曾——舜——”嘴边回荡着纳博科夫的蜷卷。

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代码，很开心。

竹笋

月全食

Japan

分别逛了

大阪

奈良

宇治

京都

东京

区域交通

住在哪里

吃了什么

其他

整体感受

无标题

活着

偶尔打开发现上一篇文章多了一条评论非常开心所以再发一张😊

偶然想起来更新一下照片

默哀

世界失去了一个平凡、努力又很好的人。

怎么能不感伤。

HK

中元与猫

无心于四周

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