0

我的问题：

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

但是，当我粘贴数据并在工作表之间来回移动时，它会说“这里已经有数据了。要换吗？”</p>

工作表上的宏：

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 的警报？

4

0 回答 0