对于引用工作表的写法有点不懂。。。求大佬帮忙看看

qiao1019

我先把数组导入到字典去重了然后再把字典提取出来了，但是当我想放到表里的时候报错了，请各位大佬帮忙看看哪里写错了。

Sub dict()
Dim arr, dic, n, xy, ky, x, y
Set dic = CreateObject("scripting.dictionary")
For Each ws In Worksheets
If ws.Name = "Map" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next
Worksheets.Add.Name = "Map"
arr = Sheet1.Range([c18], [f18].End(xlDown)) '这个错在哪了？
For n = 1 To UBound(arr)
xy = arr(n, 3) & ":" & arr(n, 4)
dic(xy) = arr(n, 1)
Next
ky = dic.keys
bin = dic.items
For n = 1 To dic.Count
x = Split(ky(n - 1), ":")(0)
y = Split(ky(n - 1), ":")(1)
Worksheets("Map").Cells(x1, y1) = bin(n - 1) '这个错在哪了？
Next
End Sub


根据大佬提点，已解决
Sub dict()
t = Timer
Dim arr, dic, n, xy, ky, x, y
Set dic = CreateObject("scripting.dictionary")
For Each ws In Worksheets
If ws.Name = "Map" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next
Worksheets.Add.Name = "Map"
With Sheet1
arr = .Range(.[c18], .[f18].End(xlDown))
End With
For n = 1 To UBound(arr)
xy = arr(n, 3) & ":" & arr(n, 4)
dic(xy) = arr(n, 1)
Next
ky = dic.keys
bin = dic.items
For n = 1 To dic.Count
x = Split(ky(n - 1), ":")(0)
y = Split(ky(n - 1), ":")(1)
Worksheets("Map").Cells(x * 1, y * 1) = bin(n - 1)
Next
Cells(x * 1, y * 1).Select
Selection.CurrentRegion.Cut [a1]
[a1].Select
Cells.ColumnWidth = 2
MsgBox Timer - t
End Sub

TuskAi

arr = Sheet1.Range([c18], [f18].End(xlDown))
改成
arr = Sheet1.Range(Sheet1.[c18], Sheet1.[f18].End(xlDown))
试试
单元格前边不加工作表对象会默认为当前表，如果和要设置的range不在同一个表就会报错

半百

ykcbf1100

原代码基础上改了一下。

qiao1019

半百 发表于 2022-12-19 12:39

Worksheets("Map").Cells(x * 1, y * 1) = bin(n - 1)
这句为什么要*1才能运行成功呢。。。

qiao1019

ykcbf1100 发表于 2022-12-19 12:53
原代码基础上改了一下。

这个rawdata提取是很好，但没出来layout图还不算完成。

ykcbf1100

qiao1019 发表于 2022-12-19 12:53
Worksheets("Map").Cells(x * 1, y * 1) = bin(n - 1)
这句为什么要*1才能运行成功呢。。。

x,y原来是文本格式，要转换成数字才能使用。

ykcbf1100

qiao1019 发表于 2022-12-19 13:01
这个rawdata提取是很好，但没出来layout图还不算完成。

啥layout图？

qiao1019

ykcbf1100 发表于 2022-12-19 13:02
x,y原来是文本格式，要转换成数字才能使用。

学到了，谢谢

qiao1019

ykcbf1100 发表于 2022-12-19 13:03
啥layout图？

就是以X和y为坐标出来的图