V2EX = way to explore
V2EX 是一个关于分享和探索的地方
现在注册
已注册用户请  登录
V2EX  ›  zle12688  ›  全部回复第 1 页 / 共 2 页
回复总数  24
1  2  
59 分钟前
回复了 ariasigh 创建的主题 生活 🐢男请不要找老婆,祸害人
说颜值不重要的,都是自欺欺人
1 小时 0 分钟前
回复了 ariasigh 创建的主题 生活 🐢男请不要找老婆,祸害人
说颜值不重要是,都是自欺欺人
17 天前
回复了 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
80 天前
回复了 pioneerzxb 创建的主题 iPhone 求一个 ios 稳定双开微信的方案
我这有苹果证书卖,可以实现 1 个多开微信无后台接收信息,另外也能多开 n 个微信,有意的话可以加 wx ( base64 ):eDg2aW5n ,备注:dk
119 天前
回复了 zle12688 创建的主题 然而并没有 ChatGPT 无法登录了吗这 2 天?
@liyvhg 又不像是封号,我 mac 上客户端之前登录着,一直保持着登录状态,能正常使用,但是在手机上就是无法重新登录
119 天前
回复了 zle12688 创建的主题 然而并没有 ChatGPT 无法登录了吗这 2 天?
原来在电脑上登录着的账号,依然保持登录状态,但是在 iphone 上重新登录 app ,就无法登录成功
@xiangyuecn 重启过了,没用
@totoro625 你好,关于 cloudflare saas ,我有个问题想请教一下,问题有点复杂,在这里一下说不清楚,请问是否能给个联系方式沟通一下,有答谢
1  2  
关于   ·   帮助文档   ·   博客   ·   API   ·   FAQ   ·   实用小工具   ·   1180 人在线   最高记录 6679   ·     Select Language
创意工作者们的社区
World is powered by solitude
VERSION: 3.9.8.5 · 28ms · UTC 18:22 · PVG 02:22 · LAX 10:22 · JFK 13:22
Developed with CodeLauncher
♥ Do have faith in what you're doing.