VBA代码-Excel 选中单元格区域并复制

方法/步骤

  1. 1

    说明：

    1、将从数据库中取到的数据放到AG4单元格；

    2、选中AG4单元格的区域，并复制；

    3、将复制的单元格区域转置并放到H2单元格；

    4、清除AG4单元格区域；

  2. 2

    代码：

        Cells(4, "AG").CopyFromRecordset cnn.Execute(sq1)

     

        Range("AG4").CurrentRegion.Select

     

        Selection.Copy

     

        Cells(2, "H").Select

     

        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

     

        Range("AG4").CurrentRegion.ClearContents
  3. 3

    解释：

    1、sq1是SQL语句；

         Cells(4, "AG").CopyFromRecordset cnn.Execute(sq1) 'cnn.execute(sq1)是执行数据库命令。整个语句是将执行数据库命令得到的结果放到AG4单元格

    END

注意事项

  • 部分代码，不可直接使用。
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。