返回列表 上一主題 發帖

複製到空白的最上格

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-6 22:11 | 顯示全部帖子

複製到空白的最上格

各位前輩你們好!
             前輩!!範圍為[E3:E30]
            現在[E3,E4,E5,E8,E10,E22]<>""
            小第用此程式
            [A1].Copy: [E30].End(xlUp)(2.1).PasteSpecial xlPasteValues
            只能將[A1]複製到E23的位置
            但需求的位置是 E6
            不知程式為何?
            請不吝再賜教謝謝再三!!
收藏 分享

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2012-7-6 23:06 | 顯示全部帖子
回復 2# Hsieh
前輩!!謝謝!!程式ok!
               但問題沒有ok!
               如附檔說明,晚安!!
               請不吝再賜教謝謝再三!!

LeoV64.rar (13.7 KB)

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2012-7-8 11:02 | 顯示全部帖子
回復 4# Hsieh
偶像前輩!!謝謝!!再請教這個找最大()程式
         如附檔案說明!
         請不吝再賜教謝謝再三!!

LeoV64-1.rar (19.23 KB)

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
4#
發表於 2012-7-9 21:45 | 顯示全部帖子
回復 4# Hsieh
偶像前輩!不用再麻煩你,程式已找到
      只是還要再多一個輔助格,總覺得自己都沒有成長謝謝再三!!
      Sub 找最大()
          Set c = [E3:E30].Find([AB2], , , 1)
           If Not c Is Nothing Then c.Select: ActiveCell = "=TEXT(CEILING((EDATE(A1,0)-8)/7,1)*7+7,0)+ 14"
           :  ActiveCell = Selection: ActiveCell.Offset(0, 1).Select: ActiveCell = [C2]: [AA1] = "":     
     End Sub

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題