把一列数据按顺序引用到不同的工作表中

aliens · 发表于 2024-8-16 15:30

本帖最后由 aliens 于 2024-8-17 21:37 编辑

想要把A列的数据按顺序引用到不同工作表的B列中，需要满足目标工作表的A列不为空的条件，目标工作表的A列有几行不确定，目标工作表的A列数据为空时就跳到下一个工作表继续判断后再引用，直至A列的数据引用完毕（目标工作表后中填的数据就是我想要的结果，不知道我表述清楚没有，谢谢大神们。
补充问一下如果象下面这样中间有间隔，且单元格里有公式，又怎么设置，公式不能被覆盖。

小凡、、、 · 发表于 2024-8-16 15:52

A列是否会有空行间断的情况？

小凡、、、 · 发表于 2024-8-16 16:12

仅供参考

aliens · 发表于 2024-8-16 17:11

小凡、、、发表于 2024-8-16 15:52
A列是否会有空行间断的情况？

没有空行间断，只要空行了，下面就没有了

aliens · 发表于 2024-8-16 17:11

小凡、、、发表于 2024-8-16 16:12
仅供参考

先试试，谢谢啦

aliens · 发表于 2024-8-16 17:12

小凡、、、发表于 2024-8-16 16:12
仅供参考

先试试看，谢谢啦

chxw68 · 发表于 2024-8-16 17:21

Sub test()
Dim r%, i%
Dim arr, brr
Dim ws As Worksheet
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
brr = .Range("a2:a" & r)
End With
m = 0
For Each ws In Worksheets
If ws.Name <> "Sheet1" Then
With ws
r = .Cells(.Rows.Count, 1).End(xlUp).Row
If r > 1 Then
arr = .Range("a1:b" & r)
For i = 2 To UBound(arr)
m = m + 1
If m <= UBound(brr) Then
arr(i, 2) = brr(m, 1)
End If
Next
.Range("a1:b" & r) = arr
End If
End With
End If
Next
End Sub

复制代码

chxw68 · 发表于 2024-8-16 17:22

练习。。。

ykcbf1100 · 发表于 2024-8-16 19:28

参与一下。。。

ykcbf1100 · 发表于 2024-8-16 19:28

参与一下。。。

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

[求助] 把一列数据按顺序引用到不同的工作表中

评分