吾日三省吾身

1. 作业要求 申请动态数组2. 实现代码Function dynamicArr() Dim arr() As String ReDim arr(2) '申请数组大小为2(0,1,2) arr(0) = "0" arr(1) = "1" arr(2) = "2" For Each strTmp In arr Debug.Print str

1. 需求 向下合并空白单元格 作者 书名 莫言 生死疲劳 红高粱家族 丰乳肥臀 蛙 檀香刑 余华 兄弟 许三观卖血记 世事如烟2. 实现代码Function mergeR() Dim intR1, intR2 intR1 = [B1048576].End(xlUp).Row 'B列最后一个单元格向上查

1.Str与CstrStr 函数返回代表一数值的 Variant (String)。语法Str(number)必要的 number 参数为一 Long，其中可包含任何有效的数值表达式。说明当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空格暗示有一正号。使用 Format 函数可将数值转成必要的格式，如日期、时间、货币或其他用户自定义格式。与 S

1. 目标 遍历文件夹及子文件夹2. 实现代码Function recursiveFolder(strFolder) Dim fso, objFolder, objFiles, objSubFolder Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(strFolder) Then