用EXCEL VBA写一段代码：剪切2列数据范围是从鼠标停留位置开始到该列有数据的最后一行结束，到隔壁2列

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剪切C列的数据到B列前，即C列B列数据换位置

你可以使用以下VBA代码来将C列的数据剪切到B列前：

Sub CutPaste()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row '获取最后一行的行数
    
    Range("C1:C" & lastRow).Cut Destination:=Range("B1") '剪切C列数据到B列前
End Sub

这段代码将 C 列的数据剪切到 B 列前，即 C 列的数据会插入到 B 列的最前面。请确保在运行代码之前已经保存了工作簿。