移动列后如何合并ColumnFooter行不起作用,设置公式无效,如何解决?
注:移动列前合并ColumnFooter,设置公式没有问题!
With FpSpread1.ActiveSheet
.MoveColumn(.Columns("计量单位").Index, .Columns("存货编码").Index + 1, True)
.MoveColumn(.Columns("规格型号").Index, .Columns("存货编码").Index + 1, True)
.MoveColumn(.Columns("物料名称").Index, .Columns("存货编码").Index + 1, True)
.ColumnFooter.Cells(0, .Columns("物料名称").Index).ColumnSpan = 3
Dim C As Integer = 6
.ColumnFooter.Cells(0, C).Formula = String.Format("SUM(Sheet1!R1C{1}:R{0}C{1})", .RowCount, C)
End With |
|