请问这个是用数组还是字典呢？

高宏飞

有一个快递对账表，想根据省份和重量算快递单号的价格，不同省份地址和重量价格都不一样，所有的省份地址分成了4个区域，该怎样把这4个区域写入数组再进行判断呢？根据不同重量算价格的分支语句已经写好了，但是怎么将这些地址写入数组来进行判断呢？

liangmutou01

你应有一个可以下载的附件。

高宏飞

liangmutou01 发表于 2020-1-12 15:07
你应有一个可以下载的附件。

有一个附件哦

micch

这样写代码很麻烦，如果计算价格变动，还需要手工修改代码里的数字。应该做个标准表，存入数组引用，或者存入字典引用

按你这个想法，应该是加一个过程，判断所属1-4区间，然后根据结果调用对应的计算过程。

方法很多，比如把所有省作为key，加入字典，item值为所属区间。
然后根据G列的值，提取字典item，判断后调用对应的sub计算过程

cui26896

看到很多提问，都希望答复者按照自己的思路来做代码，却很少有人不细看看自己的表格，及所要解决的问题是不是能想办法简化一些，或者做得规范一些随意性少一些，不需要的空格少一些。

tptopy

试试这个可是你要的结果

suntao2000

发不了帖，在此求助一下
Sub DDD()
With Sheet2
  rw = .Range("A65536").End(xlUp).Row
  Set d = CreateObject("scripting.dictionary")
  For i = 3 To rw
  d(.Cells(i, 7) & "," & .Cells(i, 8) & "," & .Cells(i, 9) & "," & .Cells(i, 5) & "," & .Cells(i, 6)) = .Cells(i, 10) + d(.Cells(i, 7) & .Cells(i, 8) & .Cells(i, 9) & .Cells(i, 5) & .Cells(i, 6))
      MsgBox d.keys()(i - 2)
              Next i
              End With
End Sub
这是中间出现问题的一段，字典关健字为7，8，9，5，6列内容中间用，符号相连 =对应的项为第10列累计相加。
Msgbox输出字典关健字结果却是a,b,c,d ,l  efghv  e,f,g,h,v qwtyu  q,w,t,y,u
这里例举前5个结果，第一个正常，第二个没有，符连接，第三个重复第二个结果却加上，号相连，如此循复。为什么会这样?我后面还要折分，号之间的结果填到其它地方去的

answer6141

省份对应的价格在哪里呢

answer6141

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim i, j, m As Integer
   
5.     Dim dic As Object
   
6.     Dim arr, drr
   
7.     Set dic = CreateObject("scripting.dictionary")
   
8.    
   
9.     With Sheets("省份区域划分")
   
10.         For i = 2 To 35
    
11.             dic(Trim(.Range("b" & i))) = Trim(.Range("c" & i))
    
12.         Next
    
13.         drr = dic.keys
    
14.       
    
15.     End With
    
16.     With Sheets(1)
    
17.         arr = .Range("a2:j" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    
18.             For j = 1 To UBound(arr)
    
19.                 Select Case dic(arr(j, 7))
    
20.                     '全是按一区写的，没改
    
21.                     Case Is = "一区"
    
22.                         Select Case Trim(arr(j, 9))
    
23.                              Case Is <= 3
    
24.                                arr(j, 10) = 6
    
25.                             Case Is <= 4
    
26.                                arr(j, 10) = 9
    
27.                             Case Is <= 5
    
28.                                arr(j, 10) = 11
    
29.                             Case Else
    
30.                                 arr(j, 10) = Round((arr(j, 9) - 3), 0) * 1 + 6
    
31.                         End Select
    
32.                     Case Is = "二区"
    
33.                         Select Case Trim(arr(j, 9))
    
34.                              Case Is <= 3
    
35.                                arr(j, 10) = 6
    
36.                             Case Is <= 4
    
37.                                arr(j, 10) = 9
    
38.                             Case Is <= 5
    
39.                                arr(j, 10) = 11
    
40.                             Case Else
    
41.                                 arr(j, 10) = Round((arr(j, 9) - 3), 0) * 1 + 6
    
42.                         End Select
    
43.                     Case Is = "三区"
    
44.                         Select Case Trim(arr(j, 9))
    
45.                              Case Is <= 3
    
46.                                arr(j, 10) = 6
    
47.                             Case Is <= 4
    
48.                                arr(j, 10) = 9
    
49.                             Case Is <= 5
    
50.                                arr(j, 10) = 11
    
51.                             Case Else
    
52.                                 arr(j, 10) = Round((arr(j, 9) - 3), 0) * 1 + 6
    
53.                         End Select
    
54.                     Case Is = "四区"
    
55.                         Select Case Trim(arr(j, 9))
    
56.                              Case Is <= 3
    
57.                                arr(j, 10) = 6
    
58.                             Case Is <= 4
    
59.                                arr(j, 10) = 9
    
60.                             Case Is <= 5
    
61.                                arr(j, 10) = 11
    
62.                             Case Else
    
63.                                 arr(j, 10) = Round((arr(j, 9) - 3), 0) * 1 + 6
    
64.                         End Select
    
65.                 End Select
    
66.             Next
    
67.         .Range("a2:j" & .Cells(.Rows.Count, 1).End(xlUp).Row) = arr
    
68.     End With
    
69. End Sub
    

复制代码

answer6141

cui26896 发表于 2020-1-12 18:57
看到很多提问，都希望答复者按照自己的思路来做代码，却很少有人不细看看自己的表格，及所要解决的问题是不 ...

的确是，很多求助的总是，把自己的思路也当做问题，来提问，让别人按自己的思路做，也不自己想要的结果，这样就尴尬了