字典关键字对应的条目能否为一个工作表

周某人就是我

ykcbf1100 发表于 2024-1-29 19:59
正常应该这样：dic(arr(z, 1)) = Sheets(1).name & "|" & z

那Sheets(1).name 就成个文本了？我是想在多个工作表中定位关键字最后出现在的工作表以及行号

ykcbf1100

周某人就是我 发表于 2024-1-29 20:11
那Sheets(1).name 就成个文本了？我是想在多个工作表中定位关键字最后出现在的工作表以及行号

上附件吧，这样空对空说不清楚。

半百

你试试以下代码看看理解不

周某人就是我

ykcbf1100 发表于 2024-1-29 20:12
上附件吧，这样空对空说不清楚。

感谢老师热心帮助。出租屋没电脑，上传不了附件。只有手机上敲的代码。如下:
Sub dsh()
Dim dic As New Dictionary
Dim arr, arr1, m
Dim s As WorkSheet
Dim z%, x%, y%, j%
Application.ScreenUpdating = False

arr = Sheets(1). UsedRange
For z = 1 To UBound(arr)
dic(arr(z, 1)) = Sheets(1) & "|" & z
Next

For x = 2 to Sheets.Count - 1  
arr1 = Sheets(x). UsedRange
For y = 1 To UBound(arr1)
If dic. Exists(arr1(y, 4)) Then
dic(arr1(y, 4)) = Sheets(x) & "|" & y
End If
Next
Next

For Each m in dic. Items
s = Split(m, "|")(0)
j = Split(m, "I")(1)
If s <> Sheets(1) Then
s. Cells(j, 7) = "文本我1"
s. Cells(j, 9) = "文本2"
Else: s. Cells(j, 2) = "未找到"
End If
Next

Application.ScreenUpdating = True
End Sub
我的代码肯定是有问题的。我的设想是找到关键字最后出现的位置，并修改相应的值。我觉得借用二楼老师那个设定可以解决。

周某人就是我

半百 发表于 2024-1-29 20:30
你试试以下代码看看理解不

理解，d. ("A") = Array(Sheets(1), 3)
d. ("英雄所见相同") = Array("二楼老师"，"半百老师") 感谢老师指点

周某人就是我

半百 发表于 2024-1-29 20:30
你试试以下代码看看理解不

理解，d. ("A") = Array(Sheets(1), 3)
d. ("英雄所见相同") = Array("3楼老师"，"半百老师") 感谢老师指点

周某人就是我

ykcbf1100 发表于 2024-1-29 20:12
上附件吧，这样空对空说不清楚。

感谢老师热心帮助。出租屋没电脑，上传不了附件。只有手机上敲的代码。如下:
Sub dsh()
Dim dic As New Dictionary
Dim arr, arr1, m
Dim s As WorkSheet
Dim z%, x%, y%, j%
Application.ScreenUpdating = False

arr = Sheets(1). UsedRange
For z = 1 To UBound(arr)
dic(arr(z, 1)) = Sheets(1) & "|" & z
Next

For x = 2 to Sheets.Count - 1  
arr1 = Sheets(x). UsedRange
For y = 1 To UBound(arr1)
If dic. Exists(arr1(y, 4)) Then
dic(arr1(y, 4)) = Sheets(x) & "|" & y
End If
Next
Next

For Each m in dic. Items
s = Split(m, "|")(0)
j = Split(m, "I")(1)
If s <> Sheets(1) Then
s. Cells(j, 7) = "文本我1"
s. Cells(j, 9) = "文本2"
Else: s. Cells(j, 2) = "未找到"
End If
Next

Application.ScreenUpdating = True
End Sub
我的代码肯定是有问题的。我的设想是找到关键字最后出现的位置，并修改相应的值。我觉得借用3楼老师那个设定可以解决。

周某人就是我

ykcbf1100 发表于 2024-1-29 20:12
上附件吧，这样空对空说不清楚。

我又想了想，知道了关键字所在的工作表的名字以及行号，也能搞定。

lizhipei78

键值可以为一个容器，所以是一个工作表是可以的，但是这没有什么意义呀
你还不如直接用一个数组来装工作表的数据，这样子更高效