我有两张纸，叫做BW，表2称为原因。在表1中，我有列广告直到AW，必须单独添加。我在Sheep2中有表格，其中列出了AD的列名，直到AW。在第2页的第二列中，我需要AD列的总和直至AW。我尝试了下面的代码Subsum()DimBWlRowAsLong,CWlRowAsLong,iAsLongDimSformulaAsStringDimwsBWAsWorksheet,wsCWAsWorksheetSetwsBW=Sheets("BW"):SetwsCW=Sheets("Reasons")BWlRow=wsBW.Cells(wsBW.Rows.Count,"A").End(xlUp).RowCWl