用EXCEL VBA写一段代码:剪切2列数据范围是从鼠标停留位置开始到该列有数据的最后一行结束,到隔壁2列
时间: 2024-06-03 07:09:43 浏览: 18
Sub CutAndPaste()
Dim rng As Range
Set rng = Range(Selection, Selection.End(xlDown).End(xlToRight))
rng.Cut Destination:=rng.Offset(0, 2)
End Sub
说明:该代码实现了从鼠标停留位置开始到该列有数据的最后一行结束剪切2列数据范围,并将其粘贴到隔壁2列。
相关问题
在excel中写一段VBA代码:如何把excel中A1单元格的数据复制到word中第二行
,第一列的位置?
你可以使用以下VBA代码将Excel中A1单元格的数据复制到Word中第二行,第一列的位置:
Sub CopyToWord()
Dim wdApp As Object
Dim wdDoc As Object
Dim rngCopy As Range
'打开Word应用
Set wdApp = CreateObject("Word.Application")
'打开Word文档
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Test.docx")
'将Excel中A1单元格的数据复制到Word中第二行,第一列的位置
Set rngCopy = Range("A1")
rngCopy.Copy
wdDoc.Paragraphs(2).Range.PasteExcelTable False, False, False
'关闭应用和文档
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
帮我写一段vba代码:以a列数据,从大到下对整个表进行排序
以下是排序代码:
Sub Sort_Data()
Dim lngLastRow As Long
lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & lngLastRow).Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes
End Sub
上面的代码假定你要排序的数据在A列,并且表的标题在第一行。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![xlsm](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)