如何在EXCEL中插入相關行數及添加/減值

excel vba

donod 2019-07-10 23:09:29 ‧ 1504 瀏覽

各位先進好，
G至J欄，當K欄(間距)的絕對值小於儲存格M4及大於儲存格L4，都自動向下加插行數，將每行間距(J欄)都變為以N4中的設定，間距會是遞增或遞減
綠色部分是用人手加插，請教大大，VBA如何寫才可做到這效果，謝謝!

japhenchen iT邦超人 1 級 ‧ 2019-07-11 08:13:24 檢舉

給個思路，如果你的FOR NEXT中間會插行，請改成從最下行往上跑

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

小魚

iT邦大師 1 級 ‧ 2019-07-10 23:21:54

Excel VBA 插入

回應 8
分享
檢舉

看更多先前的回應...收起先前的回應...

來杯拿鐵 iT邦新手 2 級 ‧ 2019-07-10 23:43:23 檢舉

我還以為有人看懂題目，
這比寫VBA還困難。

donod iT邦新手 5 級 ‧ 2019-07-11 00:07:43 檢舉

找到這個，但不是想要的效果
Sub test()
'Updateby Extendoffice 20160616
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

小魚 iT邦大師 1 級 ‧ 2019-07-11 00:12:05 檢舉

說的也是,
這題目真的很難...

donod iT邦新手 5 級 ‧ 2019-07-11 00:52:48 檢舉

請教來杯拿鐵大大，題目如何寫，才給更多人參與建設分享，謝謝!

來杯拿鐵 iT邦新手 2 級 ‧ 2019-07-11 15:07:33 檢舉

專業版：發問的藝術
參考別人發文格式：邦友發問

用條列式方法把步驟列出來
用二張圖片表達VBA使用前和
使用後比對
提供測試檔讓邦友測試
體諒老人家，圖片的字要大一點

不然你把我當小學生，
用小朋友聽得懂方式講解。

donod iT邦新手 5 級 ‧ 2019-07-13 01:58:38 檢舉

謝謝來杯拿鐵大大指教!

來杯拿鐵 iT邦新手 2 級 ‧ 2019-07-13 18:26:14 檢舉

G至J欄，當K欄(間距)的絕對值小於儲存格M4及大於儲存格L4，都自動向下加插行數

簡化後
IF( M4 < |K欄| < L4 )then
向下插入一列

後面就看不懂，
遞增和遞減是互斥的，
判斷條件要說清楚。

donod iT邦新手 5 級 ‧ 2019-07-14 03:57:50 檢舉

謝謝來杯拿鐵大大指教
感謝准提部林版大幫忙，已經成功了
http://forum.twbts.com/viewthread.php?tid=21929&extra=pageD1&page=2

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css react 程式設計 vue.js

IT邦幫忙