跑步是一项运动，跑步能调节身体健康，也能调节心理健康。没有特别的爱好，跑步其实是一个不错的选择哟！
一年前的我，因为身体抵抗力差到了极点，一个月都要感冒几次，特别是敏感性鼻炎，困扰了我七八年，去年尤其严重。心情也特别的糟糕，见到不如意的就想发脾气，火气大得不得了。骂了孩子也无比的后悔自己的做法不对，然后又努力的调整。娃儿们不在身边的时候情绪还算稳定，当和娃儿们在一起的时候一不小心情绪就失控了。就这样周而复始的恶性循环，那样的生活很煎熬和疲惫。
感觉自己仿佛走在抑郁的边缘线上，没法用工作去转移，那就锻炼吧！在家家里跟着视频锻炼了几个月，但是感觉缓解身体疾病和心理异常的成效并不大。最后选择走出去锻炼——跑步。
迫于心中的焦急，开始跑步就使命的跑，同时刚开始跑步很累，跑步耗时也很长，大汗淋漓。跑着跑着不仅总觉得身体很累，跑不动，跑着跑着感觉脚不对劲，特别的疼，最后导致路都没法走。无奈之下，只能暂停跑步，修养身体，吃中药调整自己的鼻炎，在家静养让受伤的腿恢复，停止运动一个月。
感谢那一次的腿受伤，彻底让自己清醒过来，焦急的心态平静下来。心急吃不了热豆腐，反而适得其反。因为感冒鼻炎去看医生，因为医生的告诫，才明白，生病的一定不能强行运动，只有害处，甚至影响生命；因为腿受伤，才明白跑步是要技巧的，运动的时间强度也要适量，量力而行，循序渐进。
从那次之后，感冒鼻炎暂时好了，受伤的腿好了。才正式的开启自己的跑步计划。跑步前先活动热身，不论速度，跑步运动至少半小时。以前跑步总会以孩子们为主，希望她们运动，孩子不认真或者不去运动，我都会非常生气。但从哪以后，以自己为主，每天坚持锻炼，不在因为他人的不去或不认真而影响自己。就这样坚持了大半年。自己期望的结果出现了。脚再也没有因为跑步而受伤过，折腾人的敏感性鼻炎也畏惧了我的坚持，离我远远的了。心情也愉悦了不少，想开了想通透了很多事情。对待孩子的态度在改变，焦虑的情绪得到了一定的缓解。
这就是我坚持跑步带给我最大的收获。科学跑步，坚持跑步，为自己而跑步。也在此倡导，不论是谁，一定要安排时间运动起来。生命在于运动，跑步就很好呢！

时间如流水，疫情几年终于过去了，大丫头即将从小学步入中学，小丫头也从幼儿园进入小学都二年级，老公从外地回来工作也一年了。每个人都因为成长、因为生活而发生着改变。而自己呢，仿佛没有改变，仿佛也改变了一些。总体来讲，陪伴孩子成长的这些年，自己过得很被动，也很无奈。孩子们渐渐长大了些，自主能力也有了不少的提升。那么自己的心思也不用全部放在孩子的身上，应该放在自己身上，多为自己考虑以及家庭未来的生活状态考虑了。
前几年因为孩子，让自己心力交瘁，甚至搞得自己都抑郁，有一种自己没有照顾好孩子，同时还让自己变得无比的自卑和没有方向，每天都焦虑、每天都看不惯孩子。
不能一直这样，一定要改变。2023年，该让自己走出去了，该为自己找一份工作了。

Sub 选中单列去重()
'
'选中单列去重 宏
'

'选中单列，去重删除整行，单独写一个不知道能不能提高效率

Dim i, j, rng As Range, dict As Object, fr, lr, res
'获取选中区域中已使用的区域
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
fr = rng.Row
lr = fr + rng.Rows.Count - 1
'引用勾选：VBA窗体-工具-引用-勾选“Microsoft Scripting Runtime”
'生成字典
Set dict = CreateObject("scripting.dictionary")
For i = lr To fr Step -1
    res = CStr(Cells(i, j).Value)
    '如果字典中不存在键res则加入键res并赋值为""，否则删除当前行
    If Not dict.exists(res) Then dict(res) = "" Else Rows(i).Delete
Next

End Sub