如何在VBA中拆分数据

端接头

在上面的代码中，我想循环这些步骤，直到范围（“a1”）变为空白。请告诉我上述代码中哪里需要更正。

位置

Sub ddf()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim x As Double
Dim y As Double
Do Until Range("a1").Value = ""
x = InStr(1, Range("a1"), ".")
y = InStr(1, Range("a1"), "?")
lr = Cells(Rows.Count, 1).End(xlUp).Row
If x > y Then
Range("a" & lr + 1).Formula = Left(Range("a1"), y)
Range("a1") = Replace(Range("a1"), Range("a" & lr + 1), "")
ElseIf x = 0 Then
Range("a" & lr + 1).Formula = Left(Range("a1"), y)
Range("a1") = Replace(Range("a1"), Range("a" & lr + 1), "")
ElseIf y = 0 Then
Range("a" & lr + 1).Formula = Left(Range("a1"), x - 1)
Range("a1") = Replace(Range("a1"), Left(Range("a1"), x), "")
Else
Range("a" & lr + 1).Formula = Left(Range("a1"), x - 1)
Range("a1") = Replace(Range("a1"), Left(Range("a1"), x), "")
End If
Loop
Exit Sub
Application.DisplayAlerts = True
Application.ScreenUpdating = True

也就在之前

x = InStr(1, Sheets("sheet1").Range("a1"), ".")
y = InStr(1, Sheets("sheet1").Range("a1"), "?")

把它们都放在最后一个后面

如果结束

---

这只是为了有一个适当的“Do-Until循环”运行并嵌套“If-Then-Else”。但是关于你的目标，你可能想提供更多的细节，让我们更有效地帮助你。谢谢你的建议。实际上，我在A1中有数据，我想将数据拆分为数据中（.）或（？）标记所在列的最后一行。这样，您可以根据他们的需求调整报价，并提高品牌忠诚度。根据Cint的一项研究，62%的消费者更有可能从询问他们意见的品牌购买（来源）？担心消费者的负面反应？收集批评意见会告诉你哪些地方需要改变，但反馈表对你的用户来说也是一个很好的出口。你宁愿在你的反馈收件箱里看到负面的意见，也不愿在社交媒体上看到负面的意见，对吧？“这是A1中的数据”在结果中，我不希望（.）在数据中，但我希望（？）在数据中。i、 例如，根据Cint的一项研究，在a2单元格中“通过这种方式，你可以在a3单元格中调整你的报价以满足他们的需求并提高品牌忠诚度”，62%的消费者更有可能从征求他们意见的品牌处购买（来源）？在a3单元格中“担心消费者的负面反应？”在a4单元格中“收集批评可以告诉你什么需要改变，但反馈表对你的用户来说也是一个很好的出口”在a5单元中“你宁愿在你的反馈收件箱中看到负面的意见，也不要在社交媒体上看到负面的意见，对吧？”结果是，该单元的值应该被删减（我不希望在行首和行尾出现多余的空格）。我在代码中做了更正

Loop