Range("a1:c1") = Array("序号", "物料号", "数量")'在单元格区域中写入标题 Range("a1", Cells(Rows.Count, "E").End(xlUp)).Select '选择以A1为起点，E列计算总行数，向上选取最上的一行 x = Cells(Rows.Count, "A").End(xlUp).Row '获取a列单元格从下往上的行号 Range("H" & Z + 1, "I" & y + Z - 1).PasteSpecial'范围区域粘贴 [A1]:单元格A1写法 range("A1:B1"):单元格范围 cells（行号，列号）：单元格写法 Activecell：活动单元格 Sheets("工资表").[A2]’工资表的A2单元格 Range("c1").Select'选择C1单元格 Range("A1:L1”).Copy '选择复制 If rng.Value Like "*" & Sheet1.Range("c1") & "*" Then'判断关键字和单元格内容是否匹配（rng As Range） If InStr(arr(i, 1), cells(1,2)) >0 Then'判断关键字和单元格内容是否匹配（arr为数组） cells.end(xltoleft) 等同于按 end+向左箭，或ctrl+向左箭，往左边偏移1，且找到最左边的非空单元格 cells.end(xltoright)等同于按 end+向右箭，或ctrl+向右箭，往右边偏移1，且找到最右边的非空单元格 cells.end(xlup) 等同于按 end+向上箭，或ctrl+向上箭，往上偏移1，且找到最上的非空单元格 cells.end(xldown) 等同于按 end+向下箭，或ctrl+向下箭，往下偏移1，且找到最下的非空单元格 InStr([start, ]string1, string2[, compare])，查找字符首次出现的位置。 Instr（“起点（可选）”，“需要搜索的字符串（必选）”，“被搜索的字符（必选）”，“指定字符串比较（可选）”） Format(Now, "yyyymmdd-001")，把数值改变成对应的格式。 Format(Now, "yyyymmdd-hhmmss")：可以得到当前的日期和时间，并以指定格式显示 dir：返回文件名，dir（文件路径&"\"）+do，loop循环出所有文件名 find(查什么（What），在什么之后开始查询（After），查找类型（lookin），精确或模糊查询（lookat），按行列查找（searchorder）,查找方向（searchdirection），区分大小写（mathcase）) 如x = Sheet1.[a:a].Find([d2], , , 1).Offset(0, 1) '在a列，查找d2的值，精确查找，再偏移0行1列 x = Sheet5.Range("d:d").Find(Sheet9.Cells(4, "c")).Offset(0, 13) Sheet1.Range("A2").Resize(d.Count, 1) = Application.Transpose(d.keys) '从A2单元格开始选择区域，把字典关键字赋值给他。Transpose为函数，可返回转置单元格区域