返回列表 上一主題 發帖

[發問] (已解決)插入一行空白列有快速的方式嗎?

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-23 15:52 | 只看該作者

[發問] (已解決)插入一行空白列有快速的方式嗎?

本帖最後由 freeffly 於 2012-4-24 15:35 編輯

目前知道的方法有這三種
不過前面兩種速度好像稍微慢
最後一種用輔助欄的方式好像有稍微快一點
不知道還有沒有方式可以讓插入一行速度更快
範例說明：當編號不一樣插入一行區隔
  1.   Sub 插入一行()
  2.     Application.ScreenUpdating = False
  3.     r = 4
  4.     Do While Cells(r, 3) <> ""
  5.     first = Cells(r, 3)
  6.     Do While Cells(r, 3) = first
  7.     r = r + 1
  8.     Loop
  9.     Rows(r).Insert
  10.     r = r + 1
  11.     Loop
  12. End Sub
複製代碼
  1. Sub 插入行()
  2. Application.ScreenUpdating = False
  3. Dim ra As Long
  4. For ra = [A65536].End(xlUp).Row To 3 Step -1  '從最後一行向前建立行迴圈，步進-1
  5. If Range("C" & ra) <> Range("C" & ra - 1) Then
  6. Rows("" & ra).Insert shift:=xlDown    '插入1行
  7. End If
  8. Next
  9. End Sub
複製代碼
  1. Sub 插入()
  2. Application.ScreenUpdating = False
  3. Dim ra As Long
  4. For ra = [A65536].End(xlUp).Row To 3 Step -1  '從最後一行向前建立行迴圈，步進-1
  5. If Range("C" & ra) = "Y" Then
  6. Rows("" & ra).Insert shift:=xlDown    '插入1行
  7. End If
  8. Next
複製代碼
插入一行.rar (28.46 KB)
收藏 分享
字典兩各字 還真難理解

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
251  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-4-23 16:09 | 只看該作者
回復 1# freeffly
利用小計功能
  1. Sub Ex()
  2.    With Range("A1").CurrentRegion
  3.     .Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(2), _
  4.         Replace:=True, PageBreaks:=False, SummaryBelowData:=True
  5.     .SpecialCells(xlCellTypeFormulas).EntireRow.Clear
  6.      Range("A1").ClearOutline
  7.     End With     
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2012-4-23 16:10 | 只看該作者
剛剛是了一下將所有Y選起然後一次插入可以減少時間
可是選取的方式要做到跟ctrl選取一樣
下面是之前我提問別的問題改的
可是用這種方式會做到連續選取
改成插入行就會跟我要的不一樣
  1. Sub di()
  2.     Dim rag As Range, n As Integer
  3.    
  4.     n = 3
  5.     Do Until Cells(n, 2) = ""
  6.     If Cells(n, 3) = "Y" Then
  7.     If rag Is Nothing Then
  8.     Set rag = Cells(n, 3)
  9.     Else
  10.     Set rag = Union(rag, Cells(n, 3))
  11.     End If
  12.     End If
  13.     n = n + 1
  14.     Loop
  15.     rag.Select
  16.    End Sub
複製代碼
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2012-4-23 16:20 | 只看該作者
本帖最後由 freeffly 於 2012-4-23 16:25 編輯

回復 2# Hsieh


    版主你的方法之前沒想過(應該可以算不用程式碼的方法吧)
   不過剛剛跑還是有點久<不過比原來方式快>   
     我自己試錄巨集也要花很多時間(還沒跑完)
    剛剛想的用個別選取然後再一起插入好像是可以比較快達成
   不過個別選取這各程式碼的動作我不知道怎嚜寫
字典兩各字 還真難理解

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
5#
發表於 2012-4-23 17:14 | 只看該作者
只要有相鄰列就無法一起選取分別插入的，那會插入在同一區塊
再說判斷插入列是很慢的，最好的方式是重建資料。例如：
  1. Sub 插入()
  2.     Dim rng, arr, i%, r%
  3.     T = Timer
  4.     rng = Range([a1], [b65536].End(3))
  5.     ReDim arr(1 To UBound(rng) * 2, 1 To 2) As String
  6.     For i = 1 To UBound(rng)
  7.         r = r + 1
  8.         If i > 2 Then
  9.             If rng(i, 2) <> arr(r - 1, 2) Then r = r + 1
  10.         End If
  11.         arr(r, 1) = rng(i, 1): arr(r, 2) = rng(i, 2)
  12.     Next
  13.     [a:b] = ""
  14.     [a1].Resize(r, 2) = arr
  15.     MsgBox Timer - T
  16. End Sub
複製代碼

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
6#
發表於 2012-4-23 17:22 | 只看該作者
回復 5# oobird


    版主好快喔
   雖然程式碼看起來很簡單
   但是我看不太懂
   redim以後的我都看不太懂
   可以大略講一下嗎
字典兩各字 還真難理解

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題