Excel里面的vba调用

需要具体的文档，固定列是哪些？

DimShtAsWorksheet
ForEachShtInWorksheets
IfSht.Name<>"新工作表"Then
固定列.Copy'例如A列则把固定列改成Sht.Columns("A:A")
Sheets("新工作表").Columns(列).InsertShift:=xlToRight'如果在A列位置插入就把"列"改成"A:A"
EndIf
Next
                      

一、利用单元格公式返回值
Sub t5()
Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") '宏表函数直接把公式表达式转化为数值
Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")
End Sub
二、借用工作表函数
Sub t6()
Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")
End Sub'
三、利用VBA函数
Sub t7()
Range("C20") = VBA.InStr(Range("a20"), "E")
End Sub