Question

我根本不是技术人员，但是在Excel中进行数据验证时，我需要帮助将单元格内容复制到输入消息中。我知道输入消息中的文本字符串有限制，很高兴在尝试运行宏之前先精简单元格的内容。

谢谢！

美女

Answer 1

由于运气不好，可以使用以下代码将单元格值复制到另一个单元格。修改代码后，您可能会获得理想的收入。

尝试：

Option Explicit
Sub test()

    Dim str As String

    With ThisWorkbook.Worksheets("Sheet1")

        str = Application.Clean(Application.Trim(.Range("A1").Value))

        'Copy A1 value to A2
        .Range("A2").Value = str

        'Use A1 value as message on message box
        MsgBox str

        'Use A1 value as data validation on A2
        With Range("A2").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=str
            .IgnoreBlank = True
            .InCellDropdown = True
            .ShowInput = True
            .ShowError = True
        End With

    End With

End Sub

VBA代码将单元格内容复制到输入消息（验证）

1 个答案: