VBA中vbCrLf，vbCr，vbLf等常數是怎麽樣使用的

vbCrLf，vbCr，vbLf 是 VB 语言里定义的常数，其定义如下：

通常，在字符串中进行换行，可以使用 vbCrLf 常数，使用示例代码如下：

Sub ShowFileList(folderspec)

    Dim fs, f, f1, fc, s

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFolder(folderspec)

    Set fc = f.Files

    For Each f1 in fc

        s = s & f1.name

        s = s &  vbCrLf

    Next

    MsgBox s

End Sub

你这个问题很好，其实可以扩展出很多相似问题，我帮你归纳一下：

1、公式转常量（进一步转不同类型：数字、字符、逻辑等等）

2、日期格式转换（日期序列、日期字符串、日期格式互转）

3、数值与字符串互转

4、长数字序列完整显示（反科学计数法，比如身份z号）

5、左侧带0的字符串保留（转数值时会丢弃）

6、清除不可显字符

以上是我经常遇到，欢迎扩充。

事情虽小但是有时候得到的EXCEL格式混乱什么格式都有导致做匹配时经常匹配不到，比如vlookup，非常麻烦，为此我写了个快照函数解决此类问题。

关于第一点问题请看截图中标记部分，其他参考使用，日期格式转换还存在一些问题，有时间不断优化。

将

Dim group(1 To total) As Byte

改为

ReDim group(1 To Total) As Byte

即可

（但你的数组类型为字节型是否适用）

---