返回列表 上一主題 發帖

[發問] 型態不符合 ?請教要如何修正?

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-3-14 08:46 | 顯示全部帖子

[發問] 型態不符合 ?請教要如何修正?

bb = 70
Sheets("自營投信").Range("c3:c" & bb) = Round(Sheets("sheet2").Range("k3:k" & bb).Value / 1000, 0)
K column 的範圍每格除 1000 copy 到 c column
型態不符合 ?請教要如何修正?
收藏 分享

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
2#
發表於 2024-3-14 09:43 | 顯示全部帖子
本帖最後由 t8899 於 2024-3-14 09:48 編輯
回復  t8899
以下學習方案請前輩參考
Sub TEST()
bb = 70
With Sheets("自營投信").Range("c3:c" & bb ...
Andy2483 發表於 2024-3-14 09:19

k欄的70個儲存格的值都是不一樣的，這樣只有拷有K3的值 ??k4 ,k5, k6 ............................??
K3/1000 ---->c3
k4/1000------c4
.
.
.
.
不想用for next 的語法

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2024-3-14 12:13 | 顯示全部帖子
本帖最後由 t8899 於 2024-3-14 12:15 編輯
回復  t8899
.Value = "=ROUND(sheet2!K3/1000,0)"
Andy大提供使用公式方式應該是可以解決你不用循環的 ...
shuo1125 發表於 2024-3-14 10:11

Sheets("自營投信").Range("c3:c" & bb) = Evaluate("round(Sheet2!k3:k" & bb & "/1000,0)")
這是最簡單又更快的方法 (一行(句)就解決)
我在其他的論譠看到的，提供大家參考
Evaluate 可取代陣列 ubound 很少人在用??

TOP

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題