返回列表 上一主題 發帖

[發問] 依條件複製不同工作表資料並統計不重複次數

回復 10# 准提部林
Dear 前輩!非常感謝
如於執行前判斷NL或SL工作表是否存在?不存在則結束執行,如下如何更改。謝謝!
Dim ws As Worksheet
Dim sName As String
sName = "NL"
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then
    MsgBox "NL or SL工作表不存在結束執行"
    Exit Sub
End If
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 11# b9208

For Each S In Array("NL", "SL")
    On Error Resume Next
    If Sheets(S & "") Is Nothing Then
       MsgBox "工作表:〔" & S & "〕不存在! ": Exit Sub
    End If
    On Error GoTo 0
Next

TOP

回復 12# 准提部林
Dear 准大
非常感謝
如將所有資料移動複製到主檔,主檔檔案會變很大(約30多MB)。
請問可以不用將資料移到主檔,就可以依篩選條件複製資料到主檔嗎?
主檔名稱:TOTAL
資料檔名稱:Data1, 2, 3…….(工作表名稱:LIST)
以上檔案同一資料夾
謝謝
T18.rar (44.26 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 13# b9208


附檔:
T18-01.rar (56.23 KB)

TOP

回復 14# 准提部林

准大您好
請教想要於「TOTAL 總表」B2儲存格值複製其他EXCEL檔內A2的值(其他檔案內A2值都是相同的),如何修訂巨集?
懇請指導
謝謝!
20210206.rar (59.08 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 15# b9208


  Set xB = Workbooks.Open(PH & "\" & FN, ReadOnly:=True)
   Set xS = xB.Sheets(1)
   If DateStr = "" Then DateStr = xS.[A2]
   Arr = Range(xS.[A1:O1], xS.UsedRange)


If M > 0 Then
   [總表!b2] = DateStr

end if

插入紅色字那二行~~

TOP

回復 16# 准提部林

准大
非常感謝
100 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題