当前位置：首页 → 问答吧 → 2行数据中间的空格如何自动录入数据

2行数据中间的空格如何自动录入数据

时间：2011-08-09

来源：互联网

CI	Date	Time
4011	07-08-2011	8:00
		9:00
		10:00
		11:00
		12:00
		13:00
		14:00
		15:00
		16:00
		17:00
		18:00
		19:00
		20:00
		21:00
		22:00
4022	07-08-2011	8:00

像这种，B列的4011和4022空了很多空格，怎样把这些空格自动录入成

CI	Date	Time
4011	07-08-2011	8:00
4011	07-08-2011	9:00
4011	07-08-2011	10:00
4011	07-08-2011	11:00
4011	07-08-2011	12:00
4011	07-08-2011	13:00
4011	07-08-2011	14:00
4011	07-08-2011	15:00
4011	07-08-2011	16:00
4011	07-08-2011	17:00
4011	07-08-2011	18:00
4011	07-08-2011	19:00
4011	07-08-2011	20:00
4011	07-08-2011	21:00
4011	07-08-2011	22:00
4022	07-08-2011	8:00

附件

2行数据中间空格如何自动录入.rar(5.27 KB)

2011-8-9 00:58, 下载次数: 7

作者: wnle1983 发布时间: 2011-08-09

复制内容到剪贴板

代码:

Sub yyy()
For i = 2 To Cells(65536, 1).End(xlUp).row
If Cells(i, 1) <> "" Then a = Cells(i, 1): b = Cells(i, 2) Else Cells(i, 1) = a: Cells(i, 2) = b
Next
End Sub

作者: 白云2011 发布时间: 2011-08-09

复制内容到剪贴板

代码:

Sub aa()
On Error Resume Next

arr = Sheet5.Range("b2", Sheet5.[b65536].End(3))
For i = 1 To UBound(arr)
If Len(arr(i, 1)) <> 0 Then
For Each c In Range("a2", Sheet5.[a65536].End(3)).SpecialCells(4).Areas
Range(c(1)(0), c) = Sheet5.Range("a" & i + 1).Value

Next
For Each c In Range("b2", Sheet5.[b65536].End(3)).SpecialCells(4).Areas

Range(c(1)(0), c) = Sheet5.Range("b" & i + 1)

Next
For Each c In Range("b32", Sheet5.[c65536].End(3)).SpecialCells(4).Areas
Range(c(1)(0), c) = Sheet5.Range("b" & i + 1)

Next
For Each c In Range("a32", Sheet5.[b65536].End(3)).SpecialCells(4).Areas
Range(c(1)(0), c) = Sheet5.Range("a" & i + 1)

Next

End If
Next i
End Sub

代码有待完善和简化，有时间再写