如何通过对文本提供的信息在单元格中找到相对应的位置？

阿智

非常感谢你在百忙之中抽空为我解答。问题如下：
从A列给出的城市名在给出的10个文本中查找该城市名称，再从第一行各省名中找到相应的省份，在对应的单元格中着色。


还有个小问题：让B1-K1中的省份在代码每运行一次后顺序打乱一次
如：没运行前是福建 广东 河北 河南 黑龙江 湖北 湖南 吉林 江西 辽宁
第二次运行时顺序随机打乱：河北 湖北 江西 福建 广东 黑龙江 湖南 吉林 辽宁 河南      

smiletwo

参考：http://club.excelhome.net/forum. ... 328&pid=9790275

smiletwo

Sub ss()
   Dim i%, j%, R%, C%, arr, str$
   Dim arrByte() As Byte
   With Sheet1
      R = .Cells(Rows.Count, 1).End(3).Row
      C = .Cells(1, Columns.Count).End(xlToLeft).Column
      arr = .Range(.Cells(1, 1), .Cells(R, C))
      For i = 2 To UBound(arr)
         For j = 2 To UBound(arr, 2)
            Open ThisWorkbook.Path & "\" & arr(1, j) & ".txt" For Binary Access Read As #1
            ReDim arrByte(LOF(1) - 1)
            Get #1, , arrByte()
            Close #1
            str = ByteToStr(arrByte, "utf-8")
            If InStr(str, arr(i, 1)) Then .Cells(i, j).Interior.Color = vbGreen
         Next j
      Next i
   End With
End Sub
Function ByteToStr(arrByte, strCharset As String) As String
    With CreateObject("Adodb.Stream")
        .Type = 1
        .Open
        .Write arrByte
        .Position = 0
        .Type = 2
        .Charset = strCharset
        ByteToStr = .Readtext
        .Close
    End With
End Function

阿智

smiletwo 发表于 2021-7-25 15:27
Sub ss()
   Dim i%, j%, R%, C%, arr, str$
   Dim arrByte() As Byte

非常感谢 你的帮助。
还有个小问题：让B1-K1中的省份在代码每运行一次后顺序打乱一次
如：没运行前是福建 广东 河北 河南 黑龙江 湖北 湖南 吉林 江西 辽宁
第二次运行时顺序随机打乱：河北 湖北 江西 福建 广东 黑龙江 湖南 吉林 辽宁 河南       

阿智

有哪位热心的朋友帮忙完善一下最后一个小问题马？

smiletwo

阿智 发表于 2021-7-26 21:26
有哪位热心的朋友帮忙完善一下最后一个小问题马？

阿智

smiletwo 发表于 2021-7-27 13:07

再次感谢你的帮助。运行时提示下标越界：

smiletwo

阿智 发表于 2021-7-27 13:51
再次感谢你的帮助。

smiletwo

阿智 发表于 2021-7-27 13:51
再次感谢你的帮助。运行时提示下标越界：

   见附件

阿智

smiletwo 发表于 2021-7-31 14:56
见附件

再次感谢你的帮助，谢谢。