zle12688 最近的时间轴更新 zle12688 最近的时间轴更新 |
zle12688V2EX 第 705238 号会员，加入于 2024-08-11 14:34:11 +08:00今日活跃度排名 6185 |
| ChatGPT Plus 轻度共享 二手交易 • zle12688 • 8 天前 • 最后回复来自 beyondgamp | 1 |
| Prime Video 和 surge5 for iOS 二手交易 • zle12688 • 10 天前 |
| chatgpt plus 车 二手交易 • zle12688 • 24 天前 • 最后回复来自 fh74599 | 2 |
| 出 T-mobile 0 月租，带原始邮箱 二手交易 • zle12688 • 35 天前 • 最后回复来自 lion250258 | 6 |
| 多邻国 duolingo 二手交易 • zle12688 • 62 天前 |
| 奈飞 二手交易 • zle12688 • 62 天前 • 最后回复来自 Baymaxbowen | 3 |
| ChatGPT 无法登录了吗这 2 天？ 然而并没有 • zle12688 • 90 天前 • 最后回复来自 brucmao | 10 |
| macOS 15，废纸篓 2 个文件夹无法删除，提示被占用 问与答 • zle12688 • 94 天前 • 最后回复来自 wow0o | 6 |
| 出谷歌云 gcp 300 刀 二手交易 • zle12688 • 109 天前 • 最后回复来自 zle12688 | 1 |
zle12688 最近回复了
16 小时 29 分钟前 回复了 windplume 创建的主题 › Excel › 有哪位 excel 大神知道，如何在 excel 中对单元格内的多行文本内容进行逐行编号 |
下面代码是对 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
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
52 天前 回复了 pioneerzxb 创建的主题 › iPhone › 求一个 ios 稳定双开微信的方案 |
我这有苹果证书卖，可以实现 1 个多开微信无后台接收信息，另外也能多开 n 个微信，有意的话可以加 wx （ base64 ）：eDg2aW5n ，备注：dk
92 天前 回复了 zle12688 创建的主题 › 然而并没有 › ChatGPT 无法登录了吗这 2 天？ |
@liyvhg 又不像是封号，我 mac 上客户端之前登录着，一直保持着登录状态，能正常使用，但是在手机上就是无法重新登录
92 天前 回复了 zle12688 创建的主题 › 然而并没有 › ChatGPT 无法登录了吗这 2 天？ |
原来在电脑上登录着的账号，依然保持登录状态，但是在 iphone 上重新登录 app ，就无法登录成功
94 天前 回复了 zle12688 创建的主题 › 问与答 › macOS 15，废纸篓 2 个文件夹无法删除，提示被占用 |
@xiangyuecn 重启过了，没用
Select Language