VBA代码-Excel选中单元格区域并复制
方法/步骤
1、说明:将从数据库中取到的数据放到AG4单元格;选中AG4单元格的区域,并复制;将复制的单元格区域转置并放到H2单元格;清除AG4单元格区域;
2、代码:Cells(4,"AG").CopyFr艺皱麾酪omRecordsetcnn.Execute(sq1)惺绅寨瞀Range("AG4").CurrentRegion.SelectSelection.CopyCells(2,"H").SelectSelection.PasteSpecialPaste:=xlPasteAll,Operation:=xlNone,SkipBlanks:=False,Transpose:=TrueRange("AG4").CurrentRegion.ClearContents
3、解释:sq1是SQL语句;Cells(4,"AG").CopyFromRecordsetcnn.Execute(sq1)'cnn.execute(sq1)是执行数据库命令。整个语句是将执行数据库命令得到的结果放到AG4单元格