返回列表 上一主題 發帖

請問關於 複製貼上後空白欄為的問題

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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-6 上午 01-43-50.png (37.53 KB)

2016-1-6 上午 01-43-50.png

範本.rar (19.04 KB)

收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-19 
2#
發表於 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

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

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題