samwang

回復 1# ziv976688


If .[a1] <> "" Then For i = 4 To 10: .Cells(i, 1) = Application.VLookup(.Range("A1"), Sheets("DATA").Range("A:H"), i - 2, 0): Next

samwang

回復 1# ziv976688


.[A4:A10].Formula = "=IF(A$1="""","""",VLOOKUP(A$1,DATA!$A:$H,ROW()-2,))": .[A4:A10] = .[A4:A10].Value    '列132
>> 請問原來那個'列132不是可以用嗎? 為何要改?

samwang

回復 5# ziv976688

末學尚有3個函數公式，想轉化為程式語法~
>> 如附件，26列的最小=0 的個數答案與你的效果檔有差異，請再確認您的條件需求為何? 謝謝

samwang

回復 7# ziv976688


測試好幾次，都在   .EntireColumn.AutoFit    '列172處中斷~如圖片
>> 我測試沒問題，請看附件，可以先設中斷點在'列172的前面幾個，然後執行程式到中斷點後再按F8去偵測除錯，
請再測試看看，謝謝

samwang

回復 11# ziv976688

只要有嘗試寫，就會有進步，修改如下，請測試看看，謝謝
        If Arr(i, j) = 0 Then
            n = n + 1: Arr(1, j) = n
        ElseIf Arr(i, j) > 0 And n = 0 Then
           Arr(1, j) = "V"
        End If

samwang

回復 14# ziv976688


問題1: >> 已更新，如附件，請測試看看，謝謝。

問題2：
7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)的列191~列197程式碼不能執行~
如果執行~會在列195自動欄寬產生"偵錯"~然後無法關閉檔案~會當機~必須強制重新開機
>> 問題2，我測試沒問題，另外列191~197(版面設定)，後學認為是多餘的可以移除，
因為後面程式列200 是將整個原來檔案格式整個copy ，然後另存新檔，所以不用再每次重新設定，
清除舊資料時，需用.ClearContents，不可用.Delete(原格式設定清除)，謝謝