vba:这段代码意思是想将含有“合计数量”字符的这一行复制到另一个工作表中
发布网友
发布时间：2022-04-23 16:15
我来回答
共1个回答
热心网友
时间：2023-10-09 05:37
有问题的是这句
sa.Range("1:65536").Value = c.Range(x & ":" & x).Value
当然，如果整个代码这样改，可能执行效率会略高一些。原代码select动作太多了，虽然禁止了刷新，但是会严重影响速度。
Sub aa()
Dim r, i As Single
r = 0
For i = 6 To Sheets("07月").Cells(65536, 6).End(xlUp).Row
If Sheets("07月").Cells(i, 6).Value Like "*合计数量*" Then
r = r + 1
Sheets(1).Range(r & ":" & r).Value = Sheets("07月").Range(i & ":" & i).Value
End If
Next
End Sub
...合计数量”字符的这一行复制到另一个工作表中
当然，如果整个代码这样改，可能执行效率会略高一些。原代码select动作太多了，虽然禁止了刷新，但是会严重影响速度。Sub aa()Dim r, i As Single r = 0 For i = 6 To Sheets("07月").Cells(65536, 6).End(xlUp).Row If Sheets("07月").Cells(i, 6).Value Like "*合计数量*" Then ...
EXCEL VBA 如何将某工作表内复合条件的数据黏贴至其他不同工作表指定...
Sub copyToTable()Dim i As Integer, sht As Worksheet For i = 1 To Sheet1.Range("A1").End(xlDown).Row '从第1行到最后一行 For Each sht In ThisWorkbook.Sheets '在所有表单中查找 If sht.Name = Sheet1.Range("A" & i).Text Then ' 如果表单名字与该单元格内容相同(A列最好...
excel中怎样用VBA实现自动复制一列数据到另一个工作表?
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("A1"), Target) Is Nothing And Target.Count = 1 Then Dim N& N = Val(Target) If N > 0 And N <= Cells.Columns.Count Then Sheet1.Columns(N).Copy [A1] Else Columns...
wps中用vba将一个工作表中的数据一键保存到别一个工作表中,代码出现...
代码本身没有语法错误 在微软的EXCEL下正常运行 不知道这个出错是否与WPS有关。。。代码有点小错误 以下按“记账”的表格结构改了一下 改过的地方都注释了 Sub jizhang()Dim WS1 As Worksheet, WS2 As WorksheetDim Rnum1, Rnum2Set WS1 = Worksheets("尚品美居销售单")Set WS2 = Worksheets("...
VBA当条件满足后将所在行的部分单元格复制到另一个工作表
Sub 复制() If Application.CountIf(Range("a:a"), "*明天发送*") Then Range("a1:a3").Copy Sheet2.[a1]End Sub
excel vba中 我想要复制一个区域的内容到另外一张表上,但是复制区域的...
比如说我现在要 从A1到 i 2(其中i是变量 ,表示列数 )选中 ,然后复制 ,然后在另外一张表中 粘帖。如果行数是变量的话可以写sheet(1).range("A1:B" & i &).select 来解决,但是列数的话是ABCD下去的 。。。我写的是SHEETS(1).RANGE(CELLS(1,1),... 展开 ptwhite...
...一个sheet里指定区域内容复制到另一个汇总工作簿里一个指定shee_百...
参考代码 private Sub bookMerge(nstart As Long, ncolumn As Integer)' MsgBox "欢迎使用合并工作表工具1.0" & Chr(13) & "made by excel880工作室" & Chr(13) _' & "本工具将合并当前目录下所有工作簿的第一个工作表到一个工作簿"' Dim fs, f, f1, fc, s Dim wk As...
用VBA将一个工作表中符合条件的数据复制到另一个工作表中
给你举一个代码段的例子，如果你会BASIC，在此基础由解决你的问题就不难了 Dim i, num1 num1 = Sheets("计算").Cells(65536, 1).End(xlUp).Row '计算 Sheets("计算") A列最后一行数据的位置 For i = 1 To num1 If Sheets("计算").Cells(i, 1)>100 Then Sheets("公布表")....
...中找到符合条件的单元格,然后再整行复制到另一个表
给你一个工作表事件代码，你可以参考使用:Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False On Error Resume Next Dim a As String， b As String， x As Integer， y As Integer Dim rng As Range y = Sheets(3).[a65536].End(3).Row If Target <>...
VBA条件满足后将所在行的部分单元格复制到另一个工作表
【还有工作表1的Q R 对应工作表2的T U，还有工作表1的E F对应工作表2的V W,还有工作表1的D对应工作表2的X】是什么意思，请讲具体一些。请将上次有关提问的链接发过来。若能将你的表格发过来更好。
