返回列表 上一主題 發帖

[發問] 執行階段錯誤13

[發問] 執行階段錯誤13

已經近一個星期了,我簡直要被這個 "執行階段錯誤13"搞得快瘋了,一直不斷地修改程式碼,但是錯誤一直不客氣地出現,請各位救救我吧!
以下是程式碼,紅字是出現偵錯的部分,附檔裡另有詳細說明

Sub C_MERGE()
If [T7] = "" Then Exit Sub
[X7:AG100].ClearContents
Dim cRow&, T As Range

Set d = CreateObject("Scripting.Dictionary") '中文品項合併
For Each T In Range([T7], [T300].End(xlUp))
   If d(T.Value) = "" Then '如果T欄資料只有一筆不重複
      d(T.Value) = T.Offset(, -6) & " " & T.Offset(, -4) & " " & T.Offset(, -3)
      Else
      d(T.Value) = d(T.Value) & ", " & T.Offset(, -6) & " " & T.Offset(, -4) & " " & T.Offset(, -3)

    End If
Next
[Y7].Resize(d.Count, 1) = Application.Transpose(d.keys)
[AF7].Resize(d.Count, 1) = Application.Transpose(d.items)
Set d = Nothing

'--------------------------
Set d1 = CreateObject("Scripting.Dictionary") '英文品項合併
For Each T In Range([T7], [T300].End(xlUp))
If T.Offset(, 2) = "" Then GoTo AA
   If d1(T.Value) = "" Then
      d1(T.Value) = T.Offset(, -5) & " " & T.Offset(, 2) & " " & T.Offset(, -3)
      Else
      d1(T.Value) = d1(T.Value) & ", " & T.Offset(, -5) & " " & T.Offset(, 2) & " " & T.Offset(, -3)
    End If
AA: Next

[AG7].Resize(d1.Count, 1) = Application.Transpose(d1.items)
Set d1 = Nothing

cRow = Range("Y100").End(xlUp).Row
     If cRow < 7 Then Exit Sub
     Range("X7:X" & cRow).Formula = "=VLOOKUP(Y7,T:U,2,FALSE)"
     Range("Z7:Z" & cRow).Formula = "=COUNTIF(T$7:T$490,Y7)"
     Range("AA7:AA" & cRow).Formula = "=SUMIF(T$7:T$490,Y7,S$7:S$490)"
     Range("AB7:AB" & cRow).Formula = "=ROUND(AA7/$AC$5*$AC$4,0)"
     Range("AC7:AC" & cRow).Formula = "=SUMIF(T$7:T$390,Y7,R$7:R$390)"
     Range("AD7:AD" & cRow).Formula = "=IF(AE7=""TOOLING"",AC7+Z7*10,AC7+Z7*2)"
     
End Sub
test.rar (24.77 KB)
Jess

回復 2# 准提部林

准大,您好,這個問題我也想過,但是同樣的語法,中文的資料長度更長,合併卻沒問題。
Jess

TOP

回復 5# Kubi
感謝K大,我爬了很多文,也確認了這一點。但是現在有個頭疼的地方,因為我的代碼媮晹釣銗L幾個地方都用了Transpose這個轉置函數,將來可能會瘋狂偵錯,該如何改寫呢?准大兩個陣列並用的寫法,幼兒園程度的我不太會用?附上更新的檔案,堶惘釦畯鴝l的寫法。
test1.rar (31.11 KB)
Jess

TOP

感謝准大的幫忙,用您中英合併的方式確實又快又正確,不過我有個問題
    s1$ = T(, -5) & " " & T(, -3) & " " & T(, -2)
    s2$ = T(, -4) & " " & T(, 3) & " " & T(, -2)
T括號裡的數值到底是以哪一欄做基準推算出來的?
Jess

TOP

准大,能否再幫我看一下,我改寫後工作表1的資料要轉到工作表2的代碼,因為比較少用這樣的轉資料法,所以語法不是很懂,執行起來雖然沒偵錯,但是資料也沒轉成。
test2.rar (31.05 KB)
Jess

TOP

回復 14# 准提部林

謝謝准大的幫忙,我再好好研究學習一下。
Jess

TOP

回復 16# Kubi
謝謝K大,這樣我就不用改寫全部的程式了:'(
Jess

TOP

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題