VBA输出每一行内容

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

x

Sub Example()
Dim strAll As String
Dim arrString() As String
Selection.WholeStory
strAll = Selection.Range.Text
arrString = Strings.Split(strAll, vbCr)
End Sub

Starrry · 发表于 2022-4-30 20:36:33| 字数 51

vbCr = Carriage Return (13)
vbLf = Line Feed (10)

以前我是用vbCrLf

Starrry · 发表于 2022-4-30 20:37:24| 字数 67

本帖最后由 Starrry 于 2022-4-30 20:41 编辑

不同平台有不同换行符：
13=Mac
10=Linux
13+10=Windows

willsonlincake · 发表于 2022-5-1 09:35:36| 字数 53

Starrry 发表于 2022-4-30 20:37
不同平台有不同换行符：
13=Mac
10=Linux

感谢指点

Starrry · 发表于 2022-5-1 15:39:33| 字数 46

willsonlincake 发表于 2022-5-1 09:35
感谢指点

你谦虚了，大家一起学习！

Starrry · 发表于 2022-5-6 18:37:17| 字数 27

vbCrLf 在C#就是 "\r\n"