☰

用数字替换字母

tag-icon • tag-icon microsoft-excel-2010
用数字替换字母

有可能吗？我写入 A，Excel 将其计为 5，而在同一个单元格中写入 B，Excel 将其计为 4，一直到 F（其中 F = 0）。

实际上最后我想添加数值。

请注意，屏幕仍应显示字母而不是数字 - 唯一应显示的数字是相加后的总数。

答案1

这将完成您想要做的事情，或者至少帮助您开始做这件事。

在 Excel 2010 中，确保显示开发人员功能区（谷歌搜索，因为它有详尽的文档）。在开发人员栏中，从控件选项卡插入一个按钮在此处输入图片描述

在 Excel 工作表上绘制按钮。将出现一个新窗口，单击“新建”。

在 Sub 和 End sub 中输入以下代码

    dim myColumn as string
    myColumn = "A"    'UPDATE this for the column you want to use. In the picture, my content was in Column A, hence I used A

    Dim currentCell As Integer
    Dim totalValue As Integer
    Dim hasValue As Boolean
    hasValue = True
    currentCell = 0

    Do While (hasValue)

        currentCell = currentCell + 1
        If (Range(myColumn  & currentCell).Value = "") Then
            Exit Do
        End If

        Dim cellValue As String
        cellValue = UCase(Range(myColumn  & currentCell).Value) ' I assume you accept a and A (upper and lower case)

        Select Case cellValue
            Case "A"
                totalValue = totalValue + 5
            Case "B"
                totalValue = totalValue + 4
            Case "C"
                totalValue = totalValue + 3
            Case "D"
                totalValue = totalValue + 2
            Case "E"
                totalValue = totalValue + 1
            Case "F" 'we don't actually need F but it was in OP
                totalValue = totalValue + 0
        End Select

    Loop

    Range(myColumn  & currentCell).Value = totalValue

将项目另存为启用宏的工作表

单击按钮并查看结果。

在此处输入图片描述

答案2

Excel 2010

转到“公式”选项卡，然后单击“定义名称”。将出现一个弹出窗口，对于名称，请输入：A，对于范围，选择您喜欢的内容，对于“引用：”输入：=5

现在在任何单元格上，您都可以输入值“=A”并将得到数字 5。

要验证，请在任意单元格中输入以下值：=A+2。单元格值应返回 7 (5+2=7)。对 B、C 等重复此过程。请记住名称区分大小写。

答案3

AVLOOKUP可能在这里起作用，但这意味着你同时看到字母和数字

=VLOOKUP(A1,Sheet2!$A$1:$B$6,2)

因此，在我的工作表 2 中，我有以下内容

在此处输入图片描述

在我的工作表 1 中

在此处输入图片描述

相关内容