Excel合并多个sheet为一个sheet
Sub 合并()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name And Sheets(j).Name Like "*分部分项*" Then
X = Range("A60000").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "Dady, the data have been combined together!", vbInformation, "Tip:"
End Sub
Gao Yushan 发布于 2021-3-7 09:07
Excel 显示公式本身文字不显示公式的计算结果,解决办法
当把单元格的格式设置数字分类设置成“文本”时,这时,单元格内输入公式后显示公式本身文字不显示公式的计算结果。解决办法是把单元格的格式设置数字分类设置成“常规”,问题解决。
Gao Yushan 发布于 2020-9-20 14:26
Excel统计图形数量做考勤
应政府要求用Excel做考勤或工资表的时候,用√表示出勤,用×表示缺勤,统计时用这个公式核对实际出勤天数很便捷。
Gao Yushan 发布于 2020-8-14 09:06