標題: [發問] 上下值不同插入空白整行,請問如何改插入儲存格 [打印本頁]

---

作者: starry1314    時間: 2016-7-21 15:41     標題: 上下值不同插入空白整行,請問如何改插入儲存格

Sub insertRow()
' insertRow Macro
' 宏由 mike 錄製，時間: 2012-8-6
' 快捷鍵: Ctrl+u
    Dim RowN As Integer
    Dim i As Integer, j As Integer
        j = 6 '
        X = Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Row
    For i = 1 To X      '判定非空的最大行數RowN
         If Cells(i, j).Value <> "" Then
            RowN = i
           
         End If
    Next i
    For i = RowN To 3 Step -1
       If Cells(i, j) <> "" And (Cells(i, j) <> Cells(i - 1, j)) And Cells(i - 1, j) <> "" Then
       Rows(i).Select
       Selection.Insert Shift:=xlDown
       End If
    Next i
End Sub

---

作者: starry1314    時間: 2016-7-21 15:59

想改為只插入A~J的行,不要插入整行

---

作者: starry1314    時間: 2016-7-21 16:19

本帖最後由 starry1314 於 2016-7-21 16:26 編輯

回復 2# starry1314

已修改成功,想請問如何使用 10 step


1.想請問如何使用sql來做處理,因為這樣插入後會導致公式自動更新
   想改用處理完之後貼上

1. Sub insertRow湯()
   
2. ' insertRow Macro
   
3. ' 宏由 mike 錄製，時間: 2012-8-6
   
4. ' 快捷鍵: Ctrl+u
   
5.     Dim RowN As Integer
   
6.     Dim i As Integer, j As Integer
   
7.         j = 6 '
   
8.         X = Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Row
   
9.     For i = 1 To X      '判定非空的最大行數RowN
   
10.          If Cells(i, j).Value <> "" Then
    
11.             RowN = i
    
12.            
    
13.          End If
    
14.     Next i
    
15.     For i = RowN To 3 Step -1
    
16.        If Cells(i, j) <> "" And (Cells(i, j) <> Cells(i - 1, j)) And Cells(i - 1, j) <> "" Then
    
17.        'Range.("A" & i &":J"&i).Select
    
18.        Range(Cells(i, 1), Cells(i, 10)).Select
    
19.        Selection.Insert Shift:=xlDown
    
20.        End If
    
21.     Next i
    
22. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)