iT邦幫忙

0

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

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

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

1 個回答

0
小魚
iT邦高手 1 級 ‧ 2019-07-10 23:21:54
看更多先前的回應...收起先前的回應...

我還以為有人看懂題目,
這比寫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 檢舉

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

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

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

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

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

謝謝來杯拿鐵大大指教!

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

我要發表回答

立即登入回答