EXCEL数据处理？
发布网友
发布时间：2022-03-27 15:38
共2个回答
热心网友
时间：2022-03-27 17:07
i = 1
h = 1
Do While Cells(i, 6) <> "" '循环执行F列数据,到空白停止
If InStr(Cells(i, 12), ",") <> 0 Then '查找L列是否有，号有则分割
a = Split(Cells(i, 12), ",") '将L列数据分割并存入数组a
For y = 1 To UBound(a) + 1 '循环填入分割好的数据
Cells(h, 20) = Cells(i, 6)
Cells(h, 21) = a(y - 1)
h = h + 1
Next y
Else '没有直接填写
Cells(h, 20) = Cells(i, 6)
Cells(h, 21) = Cells(i, 12)
h = h + 1
End If
i = i + 1
Loop追问K列进行相同的运算
热心网友
时间：2022-03-27 18:25
你真的是认真请教的吗？来来来，你自己看看你上传的图片，你能看的清楚啥？？？
