急！！如何用vba在EXCEL中每隔32行自动插入一个空行

答案:3 悬赏:0 手机版

解决时间 2021-03-04 21:35

提问者网友：浪荡绅士
2021-03-04 05:22

zhhong2146你的答案很好，我再问你个问题吧，我会多给你分的。
现有sheet1和sheet2 数据如下：
sheet1
A B
1 AA
2 BB
4 DD
5 EE
7 GG
sheet2
A B
1
2
3
4
5
6
7

问题是如何将sheet1中B列的值自动复制到sheet2的B列使之与A列序号对应？

*********************************************************
jscoolice_cn 你的回答是正确但我要的是VBA来实现

最佳答案

五星知识达人网友：夜余生
2021-03-04 05:31

我已经在我的机器上把这个问题解决了。
1、打开你的工作薄，按 Alt+F11 进入VBA编程窗口
2、把工具栏第二个下拉按钮拉下来，选择“模块”，这样你就可以在左边栏看到“模块—模块1”这个层次结构
3、双击“模块1”，就会在右边打开一个空白的书写程序的地方，把下面这段程序复制粘贴进去

Sub insBlank()
Dim sh As Worksheet
Dim lastRow As Long
Set sh = ActiveSheet
lastRow = Range("A" & sh.Rows.Count).End(xlUp)
Application.ScreenUpdating = False
For i = 32 To lastRow Step 32
sh.Rows(i).Insert
Next
Application.ScreenUpdating = True
End Sub

4、关闭编程窗口回到工作表中，按Alt+F8,可以打开宏窗口，现在看到这个名为“insBlank”的宏了吧，点“执行”，它就会在你当前工作表中每32行插一个空行。

备注：如果你的题目“每隔32行”意思是每33行插一空行的话，那就把程序中For那一句中的两个32都改成33就可以了。我这个程序是每32行插一个空行的。另外，你得保证A列有数据，我是通过A列来判别你的数据最后一行是那行的。

全部回答

1楼网友：佘樂
2021-03-04 07:55

典型的查找：在Sheet2的B1输入“＝vlookup(a1,sheet1!$a:$b,2,0)” 然后将公式往下拖即可。若Sheet1的数据不全（如第3、6没有），则在Sheet2中对应的出错#A

2楼网友：话散在刀尖上
2021-03-04 06:33

for i=1 to 100 range("a" & i).select activesheet.pictures.insert("c:\excel\excel" & format(i,"0000") &".jpg") next i 子易空间站 - excel培训专家

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息