12
返回列表 上一主題 發帖

[發問] [發問] VBA填入公式

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
4# 跳轉到 »
發表於 2018-12-4 17:19 | 只看該作者
除了迴圈 還其他的方法嗎?
一個工作簿 有時候要跑 40多個Sheet， 每一個Sheet 都有一兩千行資料，
用迴圈跑要耗一些時間 !

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
3#
發表於 2018-12-4 17:14 | 只看該作者
回復 2# rouber590324


    感謝Rouber大 !

TOP

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-7-4 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2018-12-4 15:03 | 只看該作者
試試

Sub TEST()
Sheet1.[B2:B65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[B65536].End(xlUp).Row
  For M = 2 To X
   Sheet1.Cells(Y + 1, 2) = Mid(Sheet1.Cells(M, 1), 1, 3)
   Y = Y + 1
  Next
End Sub
羅

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
12
返回列表 上一主題