zle12688 最近的时间轴更新
zle12688
ONLINE

zle12688

V2EX 第 705238 号会员,加入于 2024-08-11 14:34:11 +08:00
今日活跃度排名 7093
youtube 家庭
二手交易  •  zle12688  •  19 小时 38 分钟前
建了一个 Notion edu 交流群
Notion  •  zle12688  •  2 天前  •  最后回复来自 JustdoitSoso
2
claude pro 合租
二手交易  •  zle12688  •  2 天前
巨亏出一个年付 notion AI 教育版账户
二手交易  •  zle12688  •  4 天前  •  最后回复来自 love060701
10
gpt,还剩 2 个位置
二手交易  •  zle12688  •  11 天前  •  最后回复来自 buxiangqiaodaima
3
ChatGPT Plus 便宜车
二手交易  •  zle12688  •  15 天前
ChatGPT Plus 轻度共享
二手交易  •  zle12688  •  35 天前  •  最后回复来自 beyondgamp
1
zle12688 最近回复了
16 天前
回复了 flypei 创建的主题 推广 元旦 T 楼! 送 YouTube Premium + 京东 E 卡 300 元
1
下面代码是对 Excel 表内单元格 B2 开始,循环遍历对 B 列有多行内容的单元格进行编号的 VBA 代码,可根据你自己表格内对应要编号的列,进行代码的修改就好了:

Sub NumberLinesInColumnB_FromRow2()
Dim ws As Worksheet
Dim rngCell As Range
Dim lastRow As Long
Dim arrLines As Variant
Dim i As Long

' 设置要处理的工作表(此处以当前活动工作表为例)
Set ws = ActiveSheet

' 找到 B 列最后一行有内容的行号
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

' 遍历 B 列从第 2 行到最后一行所有有内容的单元格
For Each rngCell In ws.Range("B2:B" & lastRow)
' 如果单元格不为空,并且是字符串类型
If Not IsEmpty(rngCell) And VarType(rngCell.Value) = vbString Then
' 按换行符拆分
arrLines = Split(rngCell.Value, vbLf)

' 为每一行加上编号
For i = LBound(arrLines) To UBound(arrLines)
arrLines(i) = (i + 1) & ". " & arrLines(i)
Next i

' 将编号结果重新组合回单元格
rngCell.Value = Join(arrLines, vbLf)
End If
Next rngCell

' 可根据需求,添加运行完成后的提示
MsgBox "B 列编号完成!"
End Sub
79 天前
回复了 pioneerzxb 创建的主题 iPhone 求一个 ios 稳定双开微信的方案
我这有苹果证书卖,可以实现 1 个多开微信无后台接收信息,另外也能多开 n 个微信,有意的话可以加 wx ( base64 ):eDg2aW5n ,备注:dk
关于   ·   帮助文档   ·   博客   ·   API   ·   FAQ   ·   实用小工具   ·   2721 人在线   最高记录 6679   ·     Select Language
创意工作者们的社区
World is powered by solitude
VERSION: 3.9.8.5 · 17ms · UTC 05:16 · PVG 13:16 · LAX 21:16 · JFK 00:16
Developed with CodeLauncher
♥ Do have faith in what you're doing.