麻烦高手帮看看，数组如何全部抓取完。

ldflmh

源数据不规则，有些有有引号，有些没有，怎样才能完整获取完呢。
门外汉一个，可能问题都没表述清楚，请高手们直接看附件吧
测试.zip (106.41 KB, 下载次数: 10)

2020-2-22 23:46 上传

点击文件名下载附件

谢谢了。

taller

楼主无法把问题表述清楚，大家怎么可能看明白你的附件呢

ldflmh

taller 发表于 2020-2-23 03:13
楼主无法把问题表述清楚，大家怎么可能看明白你的附件呢

确实是没说清楚，我补充一下问题，如下图，意思就是现在的代码抓取的时候，有双引号的都能抓取过来了，但像红框框里的成交量、成交额、市值、换手率等等，因为数据没有双引号，没有抓取出来，应该换个什么样的分割方法完整抓取呢。

一把小刀闯天下

    For i = 0 To 14
        zz = arr(i)

        arr1 = Split(zz, Chr(34))
        arr2 = Split(zz1, Chr(34))
        For j = 1 To UBound(arr1) Step 2
            Cells(i + kaishihang, Int((j + 1) / 2)) = arr1(j)
        Next j
    Next i
   
'上面一段整体替换掉：

    For i = 0 To 14
      arr1 = Split(arr(i), Chr(34)): n = 0
      For j = 1 To UBound(arr1)
        If InStr(arr1(j), ",") = 0 Then
          n = n + 1
          Cells(i + kaishihang, n) = arr1(j)
        Else
          If InStr(2, arr1(j), ",") = 0 Then
            If i = 0 Then
              Cells(1, n + 1) = Replace(Replace(arr1(j), ",", vbNullString), ":", vbNullString)
            End If
          Else
            arr2 = Split(arr1(j), ",")
            For k = 2 To UBound(arr2)
              t = Split(arr2(k), ":")
              If Len(t(1)) Then
                n = n + 1
                If i = 0 Then Cells(1, n) = Replace(Replace(t(0), ",", vbNullString), ":", vbNullString)
                Cells(i + kaishihang, n) = t(1)
              Else
                If i = 0 Then Cells(1, n + 1) = Replace(Replace(t(0), ",", vbNullString), ":", vbNullString)
              End If
            Next
          End If
        End If
      Next
    Next

一把小刀闯天下

For k = 2 To UBound(arr2)  修改一下，不然成交量丢失了

---------------------
For k = 1 To UBound(arr2)

ldflmh

一把小刀闯天下 发表于 2020-2-23 09:29
For i = 0 To 14
        zz = arr(i)

感谢帮助，我是太外行了，想是想着用冒号与逗号来下手，但就是不会写。

ldflmh

一把小刀闯天下 发表于 2020-2-23 09:37
For k = 2 To UBound(arr2)  修改一下，不然成交量丢失了

---------------------

嗯，现在全齐了。