1樓：我的王是金閃閃
程式有問題。
當刪除一列後。程式會跳到選中區域的下一列。而剛才的刪除操作，會使後面的列前移一列。所以會資料刪除不了的情況。需要多次執行。
你在迴圈時，新增一個控制。如果執行了刪除操作，則迴圈的變數減1.
我根據你的**改的如下：
sub test()
dim i, j, k as integer
arr = array("au", "cn", "ch", "hk")
k = cells(selection.row, 256).end(xltoleft).column
for j = 1 to k
flag = true
for i = 0 to 3
if cells(selection.row, j).value = arr(i) then
flag = false
exit for
end if
next
if flag then
columns(j).delete
j = j - 1
if cells(selection.row, j + 1) = "" then
exit sub
end if
end if
next
end sub
2樓：匿名使用者
你的程式是想把excel裡面你選的範圍內，單元格值不在你那陣列中的列刪除吧。
把for i=0 to 4 step 1改成for i=0 to 3 step 1就可以了，原因是一旦某一個值不在其中的話，就會陣列越界了
3樓：太極健
刪除行或列，最好用倒迴圈
請修改以下病句，並指出錯的原因
1 由於 一至四號 神舟 無人飛船的成功返回，使中國加入了航天開發大國的行列，這也是中國國力量日漸強大的標誌。成分殘缺，去掉 由於 2，高速磁懸浮列車執行時與軌道完全不接觸。它沒有輪子和傳動機構，列車的懸浮，導向，驅動和制動靠的是利用電磁力來實現的。語意重複 3 據資料記載，生長在野外的長尾雞的尾羽...
C語言除錯下面的程式，指出錯誤的原因並進行適當修改
1 沒有標頭檔案 2 main函式沒有返回值型別 3 px py這句，由於px,py都沒有初始值，回所以這句沒有意義答 include int main void c語言中?和 是什麼意思？怎麼運用在程式設計中？的意思bai 是條件運算子，使用的du格式zhi如下 條件 a b，如果dao條件成內立...
當老師指出錯誤批評你時，你會怎麼辦
要體諒老師是出於 恨鐵不成鋼 的動機，而並非惡意，並非 有意找我們麻煩 這樣，便會從心理上消除對老師的敵對情緒，並進一步設想，假如自己處在老師的地位，是不是也會像老師那樣處理問題。這個問題應該是問還在成長的小孩的，作為成年人都有理智了，做的事做對了應表揚鼓勵，錯了就應批評教育，但要講究方式方法，這都...