Question

以下是声明

Performance;#Recruiting;#Culture and values;#Community Involvement &
Volunteerism;/Talent Development;#Workplace

我希望在＃符号粘贴到新单元格后出现每个值？我该怎么做？

Answer 1

我已经有一段时间没有使用过VBA了，但这应该至少让你开始：

Private Sub ProcessStr()
    Dim strTest As String
    Dim strArray() As String
    Dim i As Integer

    strTest = "YOUR STRING"
    strArray = Split(strTest, ";")

    For i = LBound(strArray) To UBound(strArray)
        // REMOVE # SIGN HERE ?
        // DO SOMETHING WITH THE VALUES
        // strArray(i) - CONTAINS EACH VALUE
        // PLACE IN INDIVIDUAL CELLS
    Next
End Sub

希望这有帮助！

Answer 2

dim arrString() as string
dim strInput as string
dim i as integer

strInput = "Performance;#Recruiting;#Culture and values;#Community Involvement &
Volunteerism;/Talent Development;#Workplace"
arrStrings = strings.split(strInput, ";#")
for i = 1 to ubound(arrstrings)
    cells(i, 1) = arrstrings(i)
next i

使用VBA从字符串中提取数据

2 个答案: