excel - 如何以编程方式设置 Interop 工作表中的所有其他列

Question

使用 Excel Interop (.NET)，我们如何以编程方式为每隔一列设置两个不同的 Excel 公式。例如，

Range r = _sheet.get_Range(_sheet.Cells[1, 1], _sheet.Cells[I, J])  
r.Formula = "=something1"

将为每个单元格执行此操作。

但在J列中，每隔一列都必须有公式=something2。

范围的大小仅在运行时才知道。

Answer 1

首先，您创建一个函数来将范围定义为每隔一列，这是此(VBA) 的变体：

Sub EveryOtherColumn()

   Dim rangeString As String
   Dim columnLetter As String
   Dim i As Long

   Dim firstCol, lastCol As Long
   firstCol = Selection.Column
   lastCol = Selection.Columns.Count + firstCol - 1

   For i = firstCol To lastCol Step 2
     columnLetter = Chr(i + 64)
     rangeString = rangeString & "," & columnLetter & ":" & columnLetter
   Next i

   rangeString = Mid(rangeString, 2)

   Range(rangeString).Select

End Sub

然后，您只需将公式分配给该范围。