代码如下：
R = Range("A1").CurrentRegion.Rows.Count
If R >= 8 And R < 41 Then Range("A8:I8").Resize(41 - R).Insert Shift:=xlDown
End Sub
如果总行数本身就超过了41行，你的要求就无法满足了。
追问运行后，剪切、没有能粘贴到所指定行？
能否修改成下移到所指定行？谢谢！
不可能，代码我检验了的。除非数据行不连续
excel vba求剪切后,粘贴到指定行代码
代码如下：Sub 剪切粘贴到41行()R = Range("A1").CurrentRegion.Rows.CountIf R >= 8 And R < 41 Then Range("A8:I8").Resize(41 - R).Insert Shift:=xlDownEnd Sub如果总行数本身就超过了41行，你的要求就无法满足了。
求助 怎么让某一个单元格的第一个%之后的所有内容都剪切粘贴到此...
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。Sub test()With Range("A1") .Offset(1, 0).Value = Right(.Value, Len(.Value) - InStr(.Value, "%...
EXCEL根据某一一行的值,自动复制插入行,VBA代码怎么写
12345678910Sub fuzhi()with activesheet For i = .Range("N65536").End(xlUp).Row To 2 Step -1 n = UBound(Split(.Cells(i, "N"), ",")) .Rows(i & ":" & i + n - 1).Insert .Rows(i + n).Copy .Rows(i & ":" & i + n - 1) .Rows(i + 1 & "...
...用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行...
假设你数据在A2到F2里输入。任意插入一图形，右键点该图形，指定宏，新建。在出来的窗口中再Sub和End Sub之间 粘贴如下代码：Dim i, j As Integer i = --Range("A2")For j = 1 To 6 Cells(i, j) = Cells(2, j)Next j 回到Excel，就有了你要的。
VBA代码之复制粘贴操作
首先，我们通过Range对象的Copy方法进行复制。其语法简单明了，只需要指定你想要复制的单元格区域，或者默认情况下，直接复制到剪贴板。复制的同时，格式也会一并复制，但需注意，目标区域如有内容，可能需要通过设置Application.DisplayAlerts属性来避免粘贴时的提示。来看一个实际的代码示例：Sub mynz_10_1...
...用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行...
Private Sub CommandButton1_Click()n = 23 Do While Cells(2, 1) <> ""If Cells(n, 1) <> "" Then n = n + 1 Else:Range("A2:F2").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))Exit Do End If Loop End Sub ...
EXCEL VBA 求区域的重复复制与粘贴到不同区域的代码
首先，确保已打开所有需要操作的工作簿，然后在 VBA 窗口中编写以下代码：vb Sub CopyDataToDifferentAreas()Dim wbSrc As Workbook Dim wbDest As Workbook Dim wsSrc As Worksheet Dim wsDest As Worksheet Dim rngSrc As Range Dim rngDest As Range Dim i As Integer Dim j As Integer Dim ...
想在excel里用VBA,点击按钮复制一行数据到另外一行,可是不知道该怎么写...
代码如下：Private Sub ComboBox1_Change()Sheet2.Cells(1, 1).Value = ComboBox1.ValueDim i As Integeri = 2Do While Not i > 100000If Sheet3.Cells(i, 1) = "" ThenSheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).ValueSheet3.Cells(i, 2).Value = Now()GoTo lastline...
Excel用VBA全选一个单元格的数据,复制到剪切板,再粘贴到其他位置。
Sub tt()b = Split([a1], vbLf)For n = 0 To UBound(b)Range("c" & n + 1 & ":d" & n + 1) = Split(b(n))NextEnd Sub没有用到复制粘贴，也可以实现需求
EXCEL高手快来解决宏VBA自动将计算结果复制选择性粘贴到G列_百度知 ...
Sub Macro2()'' Macro2 Macro''将C5粘贴到G8 Range("C5").Select Selection.Copy Range("G8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '复制A7到A5 Range("A7").Select Application.CutCopyMode ...
