1樓：匿名使用者
sub testlooppaste()
dim i as long
dim ii as long
dim i3 as long
dim lastrow as long
dim wb as workbook
dim sht1 as worksheet
dim sht2 as worksheet
set wb = thisworkbook
set sht1 = wb.sheets("sheet1")
set sht2 = wb.sheets("sheet2")
'find the last row (in column a) with data.
lastrow = sht1.range("a:a").find("*", searchdirection:=xlprevious).row
ii = 2
'this is the beginning of the loop
for i = 3 to lastrow
'first activity
sht2.range("a" & ii) = sht1.range("f" & i).value
sht2.range("b" & ii) = sht1.range("d" & i).value
sht2.range("c" & ii) = sht1.range("a" & i).value
sht2.range("d" & ii) = sht1.range("h" & i).value
ii = ii + 1
'second activity
sht2.range("a" & ii) = sht1.range("f" & i).value
sht2.range("b" & ii) = sht1.range("d" & i).value
sht2.range("c" & ii) = sht1.range("a" & i).value
sht2.range("d" & ii) = sht1.range("i" & i).value
ii = ii + 1
'third activity
for i3 = 1 to sht1.range("k" & i)
sht2.range("a" & ii) = sht1.range("f" & i).value
sht2.range("b" & ii) = sht1.range("d" & i).value
sht2.range("c" & ii) = sht1.range("a" & i).value
ii = ii + 1
next i3
next i
end sub
2樓：匿名使用者
先這樣……，再這樣……然後這樣……，清楚了沒？
如何使帶有巨集的excel**複製貼上後巨集自動有效
3樓：
巨集有兩種，
一種是在工作表裡寫的**，只有開啟有巨集的工作表才有用。
另一種是載入巨集，有com載入巨集和xla載入巨集之分，這兩種載入巨集可以在任何開啟的excel裡執行。
如果你的是第一種，把vbe裡面的**複製到新的工作表就行了。
4樓：精彩奕言
點選複製時有一個選擇性貼上 在那裡有你想複製的材料內容選項 可以把你不想要的東西刪除之留下你自己需要的
5樓：
在該巨集中設定捕獲「貼上」命令的語句，然後判斷複製源是否貼上在不同的工作表中
6樓：匿名使用者
複製的時候選取資料和巨集一起
7樓：匿名使用者
哎……樓上的諸位大哥哥大姐姐啊~~~~~~~~~~~~沒有看懂提問者的意思就不要亂說話嘛………………樓豬：這個問題偶來回答！！
我想，你的意思是在固定的列輸入小數點是吧？？？
方法很簡單：
選中你要輸入小數的的那個列的列號，然後，依次點選：
資料==》有效性
在彈出的對話方塊裡頭，最後一個標籤：是「輸入法模式」。
將裡面的輸入法模式改成「關閉（英文模式）」
好了，你現在試試？
在其它的列輸入法自動被開啟，而當你用tab、方向鍵等移動到這個列的時候，
輸入法會被自動關閉，這個時候輸入小數，嘿嘿……哇卡！！！！
excel巨集命令如何將一個**全部內容複製到一個新檔名的相應**中.
8樓：一點設計演示
1.如圖，將單元格區域複製，並貼上到另外的區域，很明顯，貼上後並沒有所有的格式複製過來。特別是行高列寬。要重新調整很麻煩。
2.其在貼上選項裡選擇保持「保留源列寬」就可以了。
3.第二種方法是選擇性貼上的方法，
點滑鼠右鍵→「選擇性貼上」命令，在對話方塊中選擇「列寬」。
4.複製單元格保留單元格行高和列寬
整行復制可以保留行高，整列複製可以保留列寬，都要保留就只有整表複製。
要同時選擇區域所在的行和列。
9樓：97樂於助人
只要選中複製部分內容，再按ctrl 和c鍵，完成複製。 2、到另一個**的目標位置，同時按
10樓：匿名使用者
開啟2個檔案
右擊要複製的工作表標籤》移動或複製工作表》選中目的工作簿，勾選建立副本，確定。
對補充問題的回覆：
將你描述的過程錄製成巨集就是了
excel怎麼用vba實現隔3行復制3行（也就是取3行），然後把取出的寫入新表單？
11樓：匿名使用者
sub copythreerow()
'設定目標新表單儲存位置
lastrow=1
'遍歷原錶行
for i=1 to sheet1.[a100000].end(xlup).row
if i mod 6=1 then
sheet1.cells(i,1).resize(3,).entirerow.copy sheet2.cells(lastrow+1,1)
lastrow=lastrow+3
end if
next i
12樓：匿名使用者
sub ss()
dim i%, r%
sheets("sheet1").cells.copysheets("sheet2").selectactivesheet.paste
r = range("a65536").end(xlup).row / 2 + 1
for i = 1 to r step 3rows(i & ":" & i + 2).delete shift:=xlup
next
end sub
13樓：陽光上的橋
兄弟excel，裝不下幾百萬行的，最多就是104萬行。
如果不是想借機學習vba的話，應該是新增輔助列，使用公式mod(row(),6)計算值為0-5，你按此列篩選出0-2或者1-3，然後複製即可，序號的效果如下：
excel**如何實現在插入行後自動複製上一行中各對應列的公式？
14樓：很多很多
excel**實現在插入行後自動複製上一行中各對應列的公式的具體步驟如下：
需要準備的材料分別是：電腦、excel**。
以win7系統、excel**2010版為例：
1、首先開啟需要編輯的excel**。
2、然後在彈出來的視窗中點選開啟左上角檔案中的「選項」。
3、然後在彈出來的視窗中點選打勾高階中的「擴充套件資料區域格式及公式」即可。
15樓：一條酸菜魚
1、在excel**中，先輸好公式。
點選檢視大圖" >2、滑鼠點選輸公式的單元格，把滑鼠放在單元格的右下角，會出現一個十字黑色標。
3、將輸入公式的單元下拉，把第一行的公式複製到其他行，想要多少行拉多少行。
4、最後在前面的單元格輸入數字，公式的單元格就會自動顯示出資料。
16樓：匿名使用者
1、如圖
這個時候 注意 選定插入的行 按快捷鍵 ctrl+d 得出 如下結果從填充的公式可以看出，得出的是結果是想對引用的公式。
如需 結果為絕對引用的位置，則在 第一行的公式中 用絕對引用的公式
17樓：匿名使用者
選擇一行，複製，原位置插入複製的單元格
問題補充：
能否在工作表被保護的狀態下插入行或列？怎麼設定？
選單_工具_保護_保護工作表_彈出對話方塊中在"插入列"和"插入行"前面打勾,設定或不設定密碼後確定
18樓：方括號
選中區域，資料－列表－建立列表。
以後操作時，在列表裡插入行即可。
19樓：匿名使用者
二樓的方法不錯，可以「一步」到位，實際上也不止一步。對初學者，會給以後的操作帶來一定的麻煩。不如直接插入行，選中上一行，再向下填充。
雖然不能「一步」，但還是比較容易操作和掌握的。
20樓：蘇蘇孟
用巨集比較簡單、先錄製第一行的公式、然後插入一行、下拉公式、停止錄製、 這只是插入一行和複製一行、但我建議你可以考慮先插入你需要的行數、也可以達到相同效果
插入行**:
dim c as integer
for c = 1 to aa(aa表示你要插入的行數、也可以定義)
sheets("表名").rows(3).insert shift:=xldown //表示從第三行開始插入
next
複製公式的**:
selection.autofill destination:=sheets("表名").
range("a2:g" + cstr(aa)), type:=xlfilldefault
sheets("表名").range("a2:g" + cstr(aa)).select
可以把錄製巨集的**複製放到這個之前、剩下的就是你的事情了、可能你修改的時候會有錯誤、但**絕對是正確的、因為前段時間我做過類似的、希望對你有幫助
21樓：匿名使用者
點選當行--複製---點選下一行---右鍵----貼上複製的行
請教excel 錄製巨集時，複製貼上的資料沒有，而是空白呢？謝謝。
22樓：愛上北極之光
第一個，貼上成空白，有可能是你複製的內容包含單元格相對引用，貼上到新位置後，引用的位置也會變化。你可以選空白格，看一下編輯欄的內容是否有公式引用。如果有引用，就改成「絕對引用」（在引用中使用$符號），就沒問題了。
第二個，選擇性貼上沒格式，可能是你只選擇性貼上了數值造成的。可以再在原位置選擇性貼上一下格式就好了。
用vba（巨集）如何實現把excel表的部分資料複製貼上到ppt上?
23樓：匿名使用者
你直接錄製巨集就ok了
然後修改一下，一般就是加個迴圈
主要是把表徵物件用變數表示
24樓：匿名使用者
不需要用到ppt中的巨集
通過vba開啟或建立相關程式和文件，然後執行操作就可
497983161
25樓：匿名使用者
不熟悉的話直接用sendkey模擬ctrl+c,ctrl+v來做,office會自動解決相容性的問題
26樓：匿名使用者
對於複製到ppt中，這個可以的（2023年老外已經解決了這個問題），
對於第一個問題，複製圖到ppt中，這個除非是選擇性貼上成**格式，不然保持資料複製過去會把整個工作薄複製過去（這個老外在2023年左右已經編寫了好幾個程式），當然有另一種方法，就是在ppt中做好圖，再將相應的資料用vba複製過去
對於自動調節ppt中的標題，這個你可以去看看ppt vba幫助裡面有
excel巨集設定，excel中如何啟用巨集
興堅成後文 在excel裡面安全性設為中，而且檔案裡面有寫巨集，則開啟檔案的時候會出個對話方塊，問是否啟用巨集，如果點是，則可以執行巨集命令，如果點否，則巨集不能正常執行。注 巨集是excel裡面編寫的程式 魚木混豬喲 檔案，選項 信任中心，信任中心設定，巨集設定，啟用巨集即可在excel中按下al...
如何將IF和SUNIF合併使用，excel中，IF與SUM函式如何組合使用？
雖然c的格式為常規，但其實用這個函式出來的仍然是文字，所以不能sum。把公式修改為 if b2 1 1 1 if b2 2 2 2 if b2 3 3 3 強制c的值為資料，就可以sum了。if和sum在excel中是常用指令，它們的使用方法有三種 方法一 sum if h3 h100 2,m3 m...
如何在excel中執行巨集，在excel中如何使用巨集？
馬堂渾雅霜 你沒有原稿，不知道你的 什麼樣子的，幫你隨便弄了一個。vba 非常簡單，只要2句，你自己可以嘗試著做一下。假設 是sheet1,箱號在c1格 sheet1.printout c1 c1 1 即可聯貫列印也可以這麼寫 st inputbox 1st carton no.is ed inpu...