Question

我的问题：

我有一个宏，它可以设置我的工作表，以便在我激活工作表时自动将文本转换为列...

然而，当我粘贴数据并在表格之间来回移动时，它会说“这里已有数据。你想替换它吗？“

表单上的宏：

Private Sub Worksheet_Activate()

Dim sht As Worksheet
Dim LastRow As Long
Set sht = Sheets("Kvik kontoudtog")

LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
rng1 = "A1:A" & LastRow

sht.Range(rng1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))

End Sub

目标：

我希望宏自动“取消”警报，这样我就不必

了

问题：

我可以插入一个字符串来自动点击取消，这样就不会破坏我的数据，并通过VBA摆脱警报吗？

自动“取消”Excel警报

0 个答案: