Excel VBA 問題，請版上大大幫忙，感謝！

我有EXCEL的問題想詢問，如何使用 VBA的方式自動讓圖片1 變成圖片 2
(因為在G～I行的位置偶爾會因為格式出錯，導致會將 G~I 行的資料貼到下一行，請問能否將出錯的格式貼回原本的行，並且刪除額外錯誤的那一行?)，萬分感謝願意提供方法的大大！！

2023-09-09 13:10 #1

文章關鍵字

Excel VBA 問題版上

fhd01

490分

2樓

fhd01

個人積分：490分

文章編號：88208018

看起來是固定的欄位要調整
應該可以試試錄製巨集的方式
再手動修改錄製巨集成需要的就好了

LLun
樓主

嘗試過，但是就是會怪怪的，想尋求大大做好的版本:P

2023-09-10 8:18

stjerhsieh

32分

3樓

stjerhsieh

個人積分：32分

文章編號：88210174

看你的資料好像是固定列(EX: 5, 10, 15...)出問題, 只要知道總共有多少列,
利用For....Next語法, 並且使用"倒序"的方式從最後有問題列開始進行搬移及刪除即可!

LLun
樓主

這是其中一份資料，每天都會有一筆新資料要彙整，這是剛好5、10、15行出問題，有時只會1行有問題，有時甚至會高達7~8行出問題，希望可以有板上大大提供一下完整的VBA程式內容!!

2023-09-10 8:19

小小尉

241分

4樓

小小尉

個人積分：241分

文章編號：88217648

LLun wrote:
我有EXCEL的問題...(恕刪)

你是不是應該先找出為什麼格式會錯誤?
錯誤的資料都固定出現在B~D欄?且不固定列數?

南風天

109分

5樓

南風天

個人積分：109分

文章編號：88218155

根據EXCEL內容設定的(建議執行前先存檔)，
利用巨集並修改部分內容，
並判斷A、B欄的個數差別來設定FOR迴圈的次數，
可以自己設定Button來執行。

Sub 巨集()
' 巨集

Dim ACounta, BCounta
ACounta = Application.CountA(Range("A:A"))
BCounta = Application.CountA(Range("B:B"))

For i = 1 To (BCounta - ACounta)
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1).Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Selection.Offset(-1).Select
Selection.End(xlToRight).Select
Selection.Offset(, 1).Select
ActiveSheet.Paste
Selection.Offset(1).Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete Shift:=xlUp
Next i
End Sub