插行取值

jdyq · 发表于 2022-12-4 14:02

我想根据A列的值不同来自动插行并取值，请问大师如何实现，

准提部林 · 发表于 2022-12-4 14:40

TEST//

XX001.rar (12.56 KB, 下载次数: 5)

清风竹- · 发表于 2022-12-4 14:59

请看附件。

jdyq · 发表于 2022-12-4 15:26

谢谢2位老师，我用准提部林老师的代码，当列数有17列的时候，就有错误了。清风竹-老师的代码不知为什么运行后数据没有变化

tmplinshi · 发表于 2022-12-4 16:10

准提部林 · 发表于 2022-12-4 16:25

改01//

XX001-1.rar (12.35 KB, 下载次数: 8)

jdyq · 发表于 2022-12-4 18:10

准提部林老师好，你的程序结果是放在sheet2中了，能不能仍然放在sheet1中，我试着把sheet2改成sheet1，但是就清空数据了

准提部林 · 发表于 2022-12-4 18:19

jdyq 发表于 2022-12-4 18:10
准提部林老师好，你的程序结果是放在sheet2中了，能不能仍然放在sheet1中，我试着把sheet2改成sheet1，但是 ...

改成這樣//但只能執行一次//否則會多插入空行

680926 · 发表于 2022-12-4 18:25

Sub test()
Dim arr
Dim i As Integer
arr = Sheets("类别表").Range("a1", Sheets("类别表").Range("a65536").End(xlUp))
For i = UBound(arr) To 1 Step -1
If arr(i, 1) <> "" And i > 1 Then
      Do While arr(i, 1) = arr(i - 1, 1)
         i = i - 1
      Loop
      Sheets("类别表").Range("b" & i - 1).Offset(1, -1).Resize(1, 2).Insert shift:=xlDown
      Sheets("类别表").Cells(i, 2) = arr(i, 1)
End If
Next
End Sub

jdyq · 发表于 2022-12-4 19:13

谢谢几位老师，终于ok了

		自动登录	找回密码
密码			免费注册

[求助] 插行取值

评分

评分