Vba 如何使用VB宏拆分字符串

我需要将此号码

30971406

拆分为

30

970

140

6

。如何使用VB宏脚本。任何人请对此进行调查并提供帮助。

如对您的问题的评论中所述，您可以使用以下方法：

SomeString=Mid（StringName、Start、Length）

将其放入

Sub

将如下所示：

 Option Explicit

 Sub SplitStringSub()

      Dim OriginalString As String

      Dim String1 As String
      Dim String2 As String
      Dim String3 As String
      Dim String4 As String

      OriginalString = 309701406


      'Mid wants a String input
      'Because of the need to split the Numerical String it is not explicity required to have the "  " around then String input line.
      'Should you want to Split a String of Alphabetical Characters the "  " will definitely be required.
      String1 = Mid(OriginalString, 1, 2)
      String2 = Mid(OriginalString, 3, 3)
      String3 = Mid(OriginalString, 6, 3)
      String4 = Mid(OriginalString, 9, 1)

 End Sub

---

如对您的问题的评论中所述，您可以使用以下选项：

SomeString=Mid（StringName、Start、Length）

将其放入

Sub

将如下所示：

 Option Explicit

 Sub SplitStringSub()

      Dim OriginalString As String

      Dim String1 As String
      Dim String2 As String
      Dim String3 As String
      Dim String4 As String

      OriginalString = 309701406


      'Mid wants a String input
      'Because of the need to split the Numerical String it is not explicity required to have the "  " around then String input line.
      'Should you want to Split a String of Alphabetical Characters the "  " will definitely be required.
      String1 = Mid(OriginalString, 1, 2)
      String2 = Mid(OriginalString, 3, 3)
      String3 = Mid(OriginalString, 6, 3)
      String4 = Mid(OriginalString, 9, 1)

 End Sub

---

如果0是分隔符，则可以执行此操作

Dim str As String
Dim aTmp() As String

str = "309701406"

aTmp() = Split(str, "0")
str = Join(aTmp, "0 ")
aTmp() = Split(str, " ")

---

如果0是分隔符，则可以执行此操作

Dim str As String
Dim aTmp() As String

str = "309701406"

aTmp() = Split(str, "0")
str = Join(aTmp, "0 ")
aTmp() = Split(str, " ")

---

使用mid$（）读取给定偏移量+长度处的零件。使用mid$（）读取给定偏移量+长度处的零件。如果列中的每个数字都需要类似地拆分，则实际上您也可以将此代码用于循环…您需要使用“”对于输入字符串，如果您将前导0视为一个数字，它将被剥离。这对我很有帮助。如果列中的每个数字都需要类似地拆分，您也可以将此代码与循环一起使用…您需要使用“”对于输入字符串，如果您将前导的0视为一个数字，它将被剥离，谢谢大家..这对我帮助很大