Re: [算表] 巨集編輯,複製欄,貼上至隔壁欄

看板Office作者 (一..一)時間14年前 (2011/12/21 20:34), 編輯推噓1(106)
留言7則, 2人參與, 最新討論串2/2 (看更多)
: 推 bulldog:簡單一點For i=1 to 110 Range("B"&i).Value = Range("A"& 12/21 18:06 : → bulldog:i).value Next 類推,順便問一下保險學的老師是ck張嗎? 12/21 18:07 先感謝b大。 但我這巨集的動作是按一次換一行即可。 也就是 A1 B1 C1 D1 ←這裡按一次 ┌巨集按後,B1複製至A1,然後我的C1是IRR公式的結果跟著出來,要再複製C1貼上值至D1 0 2,000 0 0 ←按前 2,000 2,000 0 0 ←B1複製至A1 2,000 2,000 2% 0 ←我的公式結果出來 2,000 2,000 2% 2% ←C1複製值至D1 ┘ A2 B2 C2 D2 ←這裡要再按一次,然後也是上面的規則再RUN一遍。 能否再次麻煩b大指點迷津,謝謝。 --- 我這是自己在做計算,所以您指的保險學ck張,在下並沒有聽過耶。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 111.254.137.162 ※ 編輯: chann 來自: 111.254.137.162 (12/21 20:35)

12/22 11:48, , 1F
第一行 SR = Selection.Row
12/22 11:48, 1F

12/22 11:48, , 2F
第二行 Cells(SR, 1) = Cells(SR, 2)
12/22 11:48, 2F

12/22 11:48, , 3F
第三行 Cells(SR, 4) = Cells(SR, 3)
12/22 11:48, 3F

12/22 11:50, , 4F
以上。會依據你現在選定的儲存格所在欄位進行複製,也可
12/22 11:50, 4F

12/22 11:50, , 5F
改寫成選定多行則處理多行,如果有需要的話再說吧。
12/22 11:50, 5F

12/22 11:56, , 6F
更正說明 是選定的儲存格所在列 例如你停在C3就處理第3列
12/22 11:56, 6F

12/22 20:39, , 7F
感謝~F大,很完美的達成我所求的。
12/22 20:39, 7F
文章代碼(AID): #1EyT9dRa (Office)
文章代碼(AID): #1EyT9dRa (Office)