台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
1713
會員總數:
245257
討論主題:
189113
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
office VBA / WinOS
>> excel 複製欄位到其他工作表
[]
[
我要回覆
]
excel 複製欄位到其他工作表
價值 : 20 QP
點閱數:1783 回應數:0
樓主
showun
0
16
494
21
發送站內信
Dim FD As Range With Sheets("OP") If .Range("B1") >= .Range("F1") Then MsgBox ("超過輸出筆數,請先刪除") Else Set FD = .Range("A100").End(xlUp).Offset(1, 1) FD = Sheets("OP").Range("R2") FD.Offset(1, 0) = Sheets("OP").Range("R3") Sheets("OP").Range("J1") = Now() MsgBox ("儲存完成") End If End With
請問各位大大
我想複製特定欄位到其他工作表.或是本身的工作表
我目前可以複製,但我遇上一個問題,就是我如果繼續
做同樣的動作,都會覆蓋掉我原本的值,
我該怎麼做才會繼續往下新增,而不會蓋掉原本的值呢
搜尋相關Tags的文章:
[ vba ] ,
[ excel ] ,
[ 複製 ] ,
[ 欄位 ] ,
[ ] ,
本篇文章發表於2013-08-25 16:25
別忘捐VP感謝幫助你的人
新手會員瞧一瞧
目前尚無任何回覆
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved