vb.net - 使用VB.net反转excel单元格内容

Question

我在 Excel 中有一个列 (C)，其中包含大约 400 行（变量）和字母数字值。我想要的是反转每个要反转的单元格内容，即类似于

xy1234 ----> 4321yX

到目前为止，我有，

Sub Rev()
    Dim C As Excel.Range

    For Each C In sheet.UsedRange.Columns(1).Cells
        C(1, 8).FormulaR1C1 = "=RevStr(RC[-5])*1"
    Next C



End Sub

Public Function RevStr(ByVal Rng As Excel.Range)
    RevStr = StrReverse(Rng.Value)
End Function

但是，我在 H 列中得到的不是所需的输出，而是#NAME?所有行。

Answer 1

您可以添加一个模块，向其中添加此功能：

Option Explicit

Public Function ReverseContent(ByVal myRange As Range) As String
    ReverseContent = StrReverse(myRange.Value)
End Function

然后使用以下命令在您的工作表中调用它：

=ReverseContent(A1)

当然，这不会替换单元格的内容，但是您可以轻松地复制和粘贴它们吗？通过这种方式，它可以像任何其他 excel 函数一样执行。

Answer 2

我认为从 .net 调用 RevStr 然后将结果写入单元格而不是从 Excel 调用它会起作用