Excel 求教：利用VBA隔行插入指定行
在宏编辑中代码如下：
Sub 当前行的隔行插入1行()
Selection.Offset(2, 0).Insert
End Sub运行结果如图：
以上可根据需要进行循环
Sub 当前行的隔行插入1行_循环()
For i = 1 To 5
Selection.Offset(3 * i - 1, 0).Insert
Next
End Sub运行结果如图：
更改循环次数，将“To 5”更改至需要次数
excel 2013 vba 选定任意区域
Sub SortData()
a = Selection.Address
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SortFields.Clear
.SortFields.Add Key:=Selection.Cells(1), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range(a)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
MsgBox "排序完成.", vbInformation
End Sub
这回可以满足你的要求了。
excel求vba 选定任意单元格 复制区域
Sub TT()
Dim A
Dim myr As Range
A = Cells(1, 1)
Range(A).Select
Selection.Offset(0, 0).Resize(1000, 2).Select
Selection.Copy
Range("b1").Select
ActiveSheet.Paste
End Sub
VBA 是这样的
我就简单的写一下你看看
你可以改成CLICK事件或其他事件~
函数 也可以2列的
你选择你的B1:B1000
输入
=OFFSET(INDIRECT(A1),0,0,1000,2)
输入好CTRL+SHIFT+回车
数组形式
就好了