返回列表 上一主題 發帖

只要貼上值

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-9-14 23:21 | 只看該作者

只要貼上值

Sheets(1).Range("D7:AS7").Copy ActiveCell
Range("D7:AS7")由公式產生請問如何才貼上值,謝謝
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2010-9-14 23:48 | 只看該作者
Sheets(1).Range("D7:AS7").Copy ActiveCell
加一行：
ActiveCell.resize(1,42)=ActiveCell.resize(1,42).value

TOP

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
3#
發表於 2010-9-15 12:46 | 只看該作者
表.rar (14.11 KB)
為何結果有誤請指導,謝謝

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-9-15 13:12 | 只看該作者
  1. Sub COPYA()
  2. MsgBox "將A組第1週至第6週更期在此使用"
  3.     ActiveCell.Resize(1, 42) = Sheets(1).Range("D7:AS7").Value
  4. End Sub
複製代碼
學海無涯_不恥下問

TOP

mmggmm

帖子
101 
主題
34 
精華
0 
積分
139 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Macau 
註冊時間
2010-7-1 
最後登錄
2014-1-30 
5#
發表於 2010-9-15 14:21 | 只看該作者
本帖最後由 mmggmm 於 2010-9-17 17:42 編輯

已經可用了,叧請問如以sheet(2)
D欄為準每執行一次巨集向右填滿如何寫,謝謝.

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題