[發問] 將公式轉成值的正確程式碼插入正確的位列。

papaya

'取$E2:$P3的重複值,填入Q2      '列34
    .[Q2].FormulaArray = "=IF(COLUMN(A1)>SUM(N(COUNTIF($E2:$P3,ROW($1:$49))>1)),"""",SMALL(IF(COUNTIF($E2:$P3,ROW($1:$49))>1,ROW($1:$49)),COLUMN(A1)))"
    .[Q2].Copy .[R2]
    .[Q2:R3].Copy .[Q4:R25]       '列37
'    .[Q2:R25] =.[Q2:R25].Value   '列38
上述列38的.[Q2:R25] =.[Q2:R25].Value只能將第1個輸入的日期的.[Q2:R25]正確轉成值，
第2個(含)之後輸入的日期的.[Q2:R25] 也會= 第1個輸入的日期的.[Q2:R25]的值(錯誤值) 。

請將上述列38的.[Q2:R25] =.[Q2:R25].Value的正確程式碼，插入程式碼的正確位列。
謝謝！
測試檔︰ 0803.rar (689.28 KB)

下載次數: 7

2020-8-3 08:23

papaya

承蒙程式碼的的原作者，有加註詳細的文字說明~仔細研讀後~
在列69插入      此表.Parent.Sheets(K1).Cells(D(Key), "Q").Resize(, 2) = 此表.Parent.Sheets(K1).Cells(D(Key), "Q").Resize(, 2).Value

問題已解決了~謝謝

papaya

回復 1# papaya
補註 :
目前測試檔的"xls檔"資料夾，只放置~"合數排序"的檔案~所以"需求效果檔"只顯示"合數"工作表的Q2:R25的值；
如果測試檔的"xls檔"資料夾，有放置~"均值排序"和"尾數排序"的檔案~則"需求效果檔"也會顯示"均值"和"尾數"等二個工作表的Q2:R25的值。
謝謝 !