excel复制粘贴的宏代码

要把sheet2表格中一固定单元格（该单元格含有公式）的数值复制下来，只复制数值，复制到sheet1表格中的活动单元格中，在sheet1表格界面添加按钮，这个代码怎么写

举报该问题

推荐答案 2019-10-08

æ ¸å¿ä»£ç å°±ä¸å¥è¯ï¼åé¢æ·»å SUBãåé¢æ·»å END SUBå±ä¸è¡ï¼
SUB å®1()
SELECTION.VALUE=SHEET2.RANGE("A1").VALUE

END SUBè¿½é®

è°¢è°¢ï¼

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/Upii2sxnnv29DisDD29.html

相似回答

EXCEL中创建自动复制的宏?答：'按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式Sub 提取数据()For i = 2 To Sheets.Count Sheets("0").Columns(i - 1).Copy Sheets(i).Range("a1")NextEnd Sub

excel如何利用宏把表格内的部分数据复制到另一张表格里?答：代码如下，把"C:\我的文档\测试.xlsx"改为你的实际路径和文件名即可。Sub CopyToFile()Dim WB1 As Workbook, WB2 As Workbook Application.ScreenUpdating = False Set WB1 = ActiveWorkbook Set WB2 = Application.Workbooks.Open("C:\我的文档\测试.xlsx")WB1.ActiveSheet.Range("A1:C3").Copy...

EXCEL宏 复制粘贴答：1 在VBA中插入模块，在模块中录入如下代码：Sub TEST()Dim endRowNo endRowNo = Sheets("sheet2").Range("A65536").End(xlUp).Row If endRowNo < 6 Then endRowNo = 6 Sheets("sheet1").Range("D8:H8").Copy Sheets("sheet2").Range("i" & (endRowNo + 1))End Sub 2 在shee...

excel宏代码怎么写?答：代码如下：Sub 俺要打印()Sheets("台账录入").Select '选中"台账录入"表 Dim i As Long, r As Long r = Range("B" & Rows.Count).End(xlUp).Row '获取B列最大行号 If r < 2 Then Exit Sub '最大行号<2时退出sub For i = 2 To r Range("O7:P7") = Range("B" & i)....

EXCEL中如何通过宏实现数据的复制粘贴答：bb.offset(-1,0).resize(6,1).copy orirg.offset(rowpt,9).pastespecial paste:=xlvalues, transpose:=true'转置粘贴数值 orirg.offset(rowpt,0).resize(1,7).value=range("b8:h8").offset(bb.value,1).value'直接赋值 endif next i application.calculation = xlautomatic set orirg=nothing...

excel 怎么用宏复制一行数值到粘贴另一表格最后一行下空白行答：.Cells(3, 1).Resize(1, 20) '假设复制工作表名称是 11 第三行，20个单元格WK.Close ' 关闭来源表格Sheets("My").Select '选择要粘贴的工作表Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(1, 20) = arr '定位最后一行，下一下个空白行，并输出数组。End Sub ...

大家正在搜

excel 宏批量复制粘贴 excel粘贴宏编辑代码 excel宏复制粘贴筛选数据 excel宏跨薄复制粘贴 excel宏复制粘贴 excel启用宏后无法复制粘贴带宏的excel无法复制 excel使用宏批量重复复制 excel如何使用宏的代码

EXCEL宏复制粘贴

Excel复制循环粘贴宏代码

Excel的宏复制粘贴代码

求excel批量粘贴的宏代码

求一段Excel复制粘贴的宏代码

求助excel复制粘贴宏命令

Excel请教宏命令复制粘贴的编写

求一excel 批量复制粘贴宏