求excel代码:如何将当前文件中的有内容的部分插入到一个叫总表的文件...

发布网友发布时间：2023-11-19 19:22

共3个回答

热心网友时间：2024-10-24 17:02

你所说的有内容的当前部分是指什么？？
我的思路是这样：用双循环可以实现
Sub abc()
Dim i As Integer, j As Integer, A, B, C
For i = 1 To Sheet1.UsedRange.Rows.Count Step 1 '当前表G列最大值
For j = 2 To Sheet2.UsedRange.Rows.Count Step 1 '（总表G列最大值）
A = Sheet1.Range("g" & i)
B = Sheet2.Range("g" & j)
C = Sheet2.Range("g" & (j - 1))
If A < B And A > C Then
'复制当前表当前行（Range("a"&i &":g"&i)）内容并在总表当前位置粘贴插入行
Sheets("Sheet1").Select '总表选定并插入复制单元格
Sheets("sheet1").Rows(i & ":" & i).Select '当前表当前行选定并复制
Selection.Copy
Sheets("Sheet2").Select '总表选定并插入复制单元格
Rows(j & ":" & j).Select
Selection.Insert Shift:=xlDown
Exit For
End If
Next j
Next i
End Sub
程序调试OK！
希望对你有所帮助，如果有需要可以留言我，把部分资料发我帮你调试

热心网友时间：2024-10-24 17:00

选择当前G列复制到总表

热心网友时间：2024-10-24 16:59

在总表要显示的列的第一个单元格，输入“=”，再去点当前文件sheet1的G列，完成后，下拉或双击单元格右下角。