youngmiffy的博客

功能：将一个Sheets("总表")中的值赋给Sheets("评估").，在“评估”表中得出结果后再返回到Sheets("总表")中。Sub 评估()    Dim x As Integer, y As Integer    y = Sheet1.Range("l65536").End(xlUp).Row                   '寻找一列中最后一个非空值的行号

Sub 判定隐藏() Dim i As Integer, x As Integer x = Worksheets.Count For i = 1 To x If Sheets(i).Name Like "*汇总*" Or Sheets(i).Name Like "*人工费用*" Then Sheets(i).Visible = -1 Else Sheets(i).

总表拆分

获取工作簿中所有表的名称和地址

VBA: EXCEL中插入指定的行数并添加值

同一文件夹下由n多表，且表的格式相同，需要将表合并在一张表中，以方便统计。

选中单元格，在进行合并时，单元格的内容也进行合并，而不只是保留左上角单元格。

Sub lsy() Range("f9:f10").Font.ColorIndex = 2 Range("g9").Font.ColorIndex = 2 If Range("g10") < 0# Then Range("g10").Font.ColorIndex = 3 Else Range("g10").Font.ColorIndex = 2

Private Sub Worksheet_Activate()Dim A As Range, RN As Range, RNS As Range, i As IntegerFor Each A In [c6:c9,c12:c50] If A = "" And A.Height <> 0 Then k = k + 1 If k = 1 Then