vba复制粘贴,直接赋值法

求VBA关于复制粘贴的代码~

Public Sub copy_paste()
Dim sFile As Workbook
Dim aFile As Workbook
Set sFile = Workbooks.Open("D:\20100791Excel\source\债项统计.xls")
Worksheets("2-授信额度").Range("D12").Select
Selection.Copy
Set aFile = Workbooks.Open("D:\20100791Excel\Module ZXTJ1003.XLS")
Worksheets("信汇").Range("C7").Select
ActiveSheet.paste
sFile.Close
aFile.Save
aFile.Close
End Sub
你写到粘贴哪 代码就不对，已改正 good luck！
Worksheets("信汇").Range("C7").Select
ActiveSheet.paste

Range("a" & m + 1 & ":h" & m + 1).Copy Range("i" & p + 3) '将记录到另一个区域

改为：
Range("i" & p + 3)=Range("a" & m + 1 & ":h" & m + 1).Value '将记录到另一个区域

直接以赋值的形式进行复制，后面加上（.Value），表示只取值。

代码如下：

sub aa()
    '定义M:V列最大行号imaxrow，m:v列最下面有数据行号iendrow
    dim iMaxRow%,iEndrow%
    for i=13 to 22
        iendrow=cells(65536,i).end(xlup).row
        'imaxrow=将m：v列中最大的行号
        if iendrow>imaxrow then imaxrow=iendrow
    next
    '复制，粘贴
    range("B2:K11").copy
    cells(imaxrow+1,13).paste
end sub

---

平南县19317083020： vba复制粘贴,直接赋值法 - ？
夹咬强肝： 代码如下:sub aa() '定义M:V列最大行号imaxrow,m:v列最下面有数据行号iendrow dim iMaxRow%,iEndrow% for i=13 to 22 iendrow=cells(65536,i).end(xlup).row 'imaxrow=将m:v列中最大的行号 if iendrow>imaxrow then imaxrow=iendrow next '复制,粘贴 range(＂B2:K11＂).copy cells(imaxrow+1,13).paste end sub

平南县19317083020： EXCEL VBA 复制,粘贴数值 - ？
夹咬强肝： (1)使用菜单“工具”->“宏”->“Visual Basic 编辑器”打开Visual Basic 编辑器. 在ThisWorkbook中录入以下函数:Sub 数值化()' 保存当前表单信息Set sh = ActiveSheet ' 所有表单公式数值化For Each Sheet In SheetsSheet.Select...

平南县19317083020： VBA如何实现只复制内容不复制公式 - ？
夹咬强肝： Range(＂a＂ & m + 1 & ＂:h＂ & m + 1).Copy Range(＂i＂ & p + 3) '将记录到另一个区域 改为:Range(＂i＂ & p + 3)=Range(＂a＂ & m + 1 & ＂:h＂ & m + 1).Value '将记录到另一个区域 直接以赋值的形式进行复制,后面加上(.Value),表示只取值.

平南县19317083020： excel vba 如何使用for循环复制粘贴 - ？
夹咬强肝： 使用选择性粘贴功能并指定粘贴数值,如下面的代码所示. #001 Sub CopyPasteSpecial() #002 Sheet1.Range(＂A1＂).CurrentRegion.Copy #003 Sheet2.Range(＂A1＂).PasteSpecial Paste:=xlPasteValues #004 Application.CutCopyMode = ...

平南县19317083020： Vba里把一个单元格复制给另一个单元格 - ？
夹咬强肝： EXCEL VBA在编程时,经常会遇到取单元格值,并赋值,一般是两种语句: 1、range(＂A1＂)这样的,直接使用引用.赋值即可使用range(＂a1＂)=range(＂b1＂) 2、cells(行号,列号)这样的,使用RC引用方式,赋值可使用cells(1,1)=cells(1,2)

平南县19317083020： EXCEL VBA复制粘贴到另一新表中,想让粘贴后的格式和复制的格式一样,即长宽,合并等和原表一样,求代码修改 - ？
夹咬强肝： Sub 生成() Dim ifile As String, xx%, yy% Dim wb As Workbook yy = Sheet1.Range(＂A65536＂).End(xlUp).Row For xx = 2 To yy Sheet2.Range(＂B3＂) = Sheet1.Range(＂A＂ & xx) 'Sheet2.Range(＂A1:M28＂).Copy ifile = ThisWorkbook.Path ...

平南县19317083020： vba怎样把一个单元格中的值赋给另一个单元格 - ？
夹咬强肝： 1、首先点击EXCEL打开EXCEL工作薄,工作簿的名称为“给单元格赋值.xls”. 2、进入EXCEL界面后点击开发工具选项卡,点击上面的VIUAL BASIC按钮打开VBA编辑器. 3、进入VBA编辑器后再代码输入窗口输入如下代码.Sub 给...

平南县19317083020： vba 如何将拷贝的数据赋值给变量? - ？
夹咬强肝： 对于你这个问题,Dim aa$ Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend aa = Selection 如果要通用的话就这样 在VBE中,引用 Microsoft Forms 2.0 工程库 之后,使用如下代码: Dim MyData As DataObject, MyStr As String Set MyData = New DataObject MyData.GetFromClipboard '获得剪切板内容 MyStr = MyData.GetText '赋值给变量 msgbox mystr

平南县19317083020： excel vba 剪切粘贴 - ？
夹咬强肝： Sub s1() [i39:i57].Copy [c39] [i39:i57].ClearContents End Sub

平南县19317083020： Excel中的vba复制粘贴合并单元格的问题. - ？
夹咬强肝： 1. 如果是把一列数据粘贴到另一列均为两行合并的单元格中,比如C1的数据到A1、A2、A3合并的单元格里面,C2的数据到A4、A5、A6合并的单元格里面, 2. 在A1、A2、A3合并的单元格里面里面输入:=OFFSET(C$1,INT((ROW(C1)-1)/3),). 3. 如果是2行合并成一格的,把公式中的3改成2就行,也就是说,几行合并成一格的就改成几.