[發問] 刪除多餘的表頭

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

2^#

發表於 2011-2-25 11:27 | 顯示全部帖子

回復 4# donald

先進
因表頭五列中，有些欄位有合併儲存格，
執行有問題

個人想法：
依A欄來判斷，由A6開始向下，如儲存格內容包含〞某某公司抬頭〞，則刪除五列列數（含〞某某公司抬頭〞列）
但功力不足，不知是否可行。

謝謝指導

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

3^#

發表於 2011-2-25 11:44 | 顯示全部帖子

回復 4# donald

非常抱歉
VBA可以執行
因刪除表頭資料位於 (Sheet2)，程式碼位於(Sheet1)，執行有問題。
將程式碼位於(Sheet2)，則執行OK。

非常感謝

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

4^#

發表於 2011-2-25 23:10 | 顯示全部帖子

回復 8# Hsieh

按鈕Sheet1於Sheets(“Sheet1”) 中：
修改如下：
With Sheets("WW").UsedRange.Offset(1, 0)
執行有問題（請看附件）

按鈕WW於Sheets(“WW”) 中：
With ActiveSheet.UsedRange.Offset(1, 0)
執行 OK （請看附件）

另加入刪除多餘表頭後，再判斷D欄 = “ “，則刪除該列。
AA = Range("A65536").End(xlUp).Row
For i = 6 To AA
      If Cells(i, 4) = "" Then
      If myi Is Nothing Then
      Set myi = Cells(i, 4)
      Else
      Set myi = Union(myi, Cells(i, 4))
      End If
      End If
Next
If Not myi Is Nothing Then myi.EntireRow.Delete

非常感謝指教

W1-1.rar (121.67 KB)

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

5^#

發表於 2011-2-26 00:45 | 顯示全部帖子

回復 10# Hsieh

謝謝版主指導
執行沒有問題了

100 字節以內
不支持自定義 Discuz! 代碼