標題: 請問關於 複製貼上後空白欄為的問題 [打印本頁]

---

作者: vavashop    時間: 2016-1-6 01:44     標題: 請問關於 複製貼上後空白欄為的問題

' 大大我這一執行後 就會出現很多空白欄位  檔案就會變得非常大 不知道該如何處理
''請大大邦我看一下,因為有時後會沒有資料有時後會沒有檔案進來,不知道這樣該怎麼寫才會比較沒問題


'另一個問題是 如果我想要用搜尋的知道 1527的位置
'那該怎麼寫
'我有查過inbox了
'卡在確定要怎麼自動按掉
'我要做的是 向右向下的圈選
'麻煩大大了

Sub 十三劍報表1_1()  '篩選13劍_多

Dim row_s1 As Integer

'檢查工作表1的B欄已有資料行數
row_s1 = Worksheets("11-13劍報表").Range("A65535").End(xlUp).Row

'B1無資料時，row_s1 =0
   If row_s1 = 1 Then
     If Cells(row_s1, 1) = "" Then
         row_s1 = 0
      
      End If
      
      End If

    Sheets("11劍13劍-多空").Select
    Rows("2:2").Select
    Range("C2").Activate
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$AX$52").AutoFilter Field:=1, Criteria1:="<=9999", _
        Operator:=xlAnd
  
  
   
   Range("A3:b3").Select '第二欄a3~b3
   Range(Selection, Selection.End(xlDown)).Select '選擇到最後一欄
    Selection.Copy
   
  Worksheets("11-13劍報表").Select
  Cells(row_s1 + 1, 1).Select
    ActiveSheet.Paste
  
  Sheets("11劍13劍-多空").Select
   Selection.AutoFilter   '恢復 不篩選
End Sub
'

---

作者: 准提部林    時間: 2016-1-7 10:23

Sub 十三劍報表1_1()
With Sheets("11劍13劍-多空")
　　　.AutoFilterMode = False
　　　With Range(.[A2], .[B65536].End(xlUp))
　　　　　　.AutoFilter Field:=1, Criteria1:="<=9999"
　　　　　　.Offset(1, 0).Copy Sheets("11-13劍報表").[A65536].End(xlUp)(2)
　　　End With
　　　.AutoFilterMode = False
End With
End Sub

發帖要將需求規則說清楚，只有程式碼，很難理解，猜的成份大∼∼　

---

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