解析步骤

周末去玩

       各位大侠，谁能帮忙解析一下每一个步骤的意思啊，在线急等！！！！

Sub trans()

   

    Application.Worksheets.Add After:=Worksheets(Worksheets.Count)

    Cells(1, 1) = "公司"

    Cells(1, 2) = "部门"

    Cells(1, 3) = "月份"

    Cells(1, 4) = "项目"

    Cells(1, 5) = "金额"

    k = Worksheets("Payroll Cost -不含外籍").Range("b65536").End(xlUp).Row

    n = 1

    If k = 1 Then Exit Sub

    For i = 3 To k

        For j = 3 To 200

           ' If Worksheets("sheet1").Cells(i, j) > 0 Then

                n = n + 1

                Cells(n, 1) = Worksheets("Payroll Cost -不含外籍").Cells(i, 1).Value

                 Cells(n, 2) = Worksheets("Payroll Cost -不含外籍").Cells(i, 2).Value

                 Cells(n, 3) = Worksheets("Payroll Cost -不含外籍").Cells(1, j).Value

                 Cells(n, 4) = Worksheets("Payroll Cost -不含外籍").Cells(2, j).Value

                 Cells(n, 5) = Worksheets("Payroll Cost -不含外籍").Cells(i, j).Value

         

        '  End If

        Next j

   Next i

        

End Sub

dajiahaoxinku12

Sub trans()
   
    Application.Worksheets.Add After:=Worksheets(Worksheets.Count)   工作表最后新加一个工作表
    Cells(1, 1) = "公司"                   a1=公司
    Cells(1, 2) = "部门"                   b1=部门
    Cells(1, 3) = "月份"                   c1=月份
    Cells(1, 4) = "项目"                   d1=项目
    Cells(1, 5) = "金额"                   e1=金额
    k = Worksheets("Payroll Cost -不含外籍").Range("b65536").End(xlUp).Row    Payroll Cost -不含外籍这个工作表的最后一行的行号赋值给变量 k
    n = 1  
    If k = 1 Then Exit Sub        如果最后一行的行号等于1就退出整个过程
    For i = 3 To k                    变量 i 从3行开始一直循环到最后一个非空行
        For j = 3 To 200            变量 j 从3到200
           ' If Worksheets("sheet1").Cells(i, j) > 0 Then   如果工作表sheet1 的 单元格 c3 到

                n = n + 1
                Cells(n, 1) = Worksheets("Payroll Cost -不含外籍").Cells(i, 1).Value
                 Cells(n, 2) = Worksheets("Payroll Cost -不含外籍").Cells(i, 2).Value
                 Cells(n, 3) = Worksheets("Payroll Cost -不含外籍").Cells(1, j).Value
                 Cells(n, 4) = Worksheets("Payroll Cost -不含外籍").Cells(2, j).Value
                 Cells(n, 5) = Worksheets("Payroll Cost -不含外籍").Cells(i, j).Value
         
        '  End If
        Next j
   Next i
        
End Sub