Question

为什么从sql里面粘贴数据到excel之后格式变了

这是数据库里现实的,格式什么都是好好的.

但是粘贴到Excel里面就变成这样了,时间的格式我可以自己改
重点就是第5行和第14行的跳行究竟是为什么
我也看了有些网友说先黏到记事本再打开结果也一样

记事本里的格式也不对,粘贴到Excel或者从Excel里面导入都是一样的效果
我真的是很头痛啊,大家帮帮忙啊,可用的话定有高分,先谢过了!





Answer 1

这个很不应该，只有第4行和第13行分行了，

你仔细检查一下这两条数据有什么不同，Schlaffer后面是否有换行符什么的。

还有，一定要select出来到查询结果里面再复制。

追问

是的,我截图的就是select出来的
如题所说,出问题的不只是这两条,我只是截了前面20条记录
后面还有好几万数据,到后面这样的问题就出现的更频繁了
没有任何分隔符,都是一样的空格,如图

Answer 2

用导出功能试试。
如果实在不行。在EXCEL中后期编辑。
可以写个VBA程序批量转换。

追问

我用的是sql 2012 express + win 7
但是从sql里导出失败了...唉~
不知道怎么弄,现在觉得复制黏贴最方便
但是这个格式错误手动修改很繁琐
我这里只是拿20几条数据
事实上我有好几十万的数据
头疼头疼...

追答

发一部分样表数据给我。帮你写个VBA程序批量操作。
wjp456789123@qq.com

追问

已发,望早日解决,谢了.

追答

代码在sheet1中，右键sheet1，查看代码

结果在sheet2中

代码可以移植。

确保启用宏。

如果你没有高版本的EXCEL，我把代码粘贴如下。

Sub aa()
Dim i&, j&
j = 2
With Sheets(2)
For i = 1 To [a65536].End(3).Row
    If WorksheetFunction.CountA(Range("A" & i & ":E" & i)) = 5 Then '如果该行有5个数据，则直接复制到sheet2的第j行
       Rows(i).Copy .Range("A" & j)
       j = j + 1 '新增行
    Else
       Range("B" & i & ":E" & i).Copy .Cells(j, 256).End(xlToLeft).Offset(, 1) '否则将第i行的数据复制到表2第j行后面不新增行
    End If
Next i
End With
End Sub

追问

我要的是完整的数据,可是你出来的结果把那些不规则的全都删了...
可以改正么?

追答

不好意思。之前没有仔细核对。

Sub aa()
Dim i&, j&
j = 1
With Sheets(2)
For i = 1 To [a65536].End(3).Row
    If WorksheetFunction.CountA(Range("A" & i & ":E" & i)) = 5 Then '如果该行有5个数据，则直接复制到sheet2的第j行
       Range("A" & i & ":E" & i).Copy .Range("A" & j)
       j = j + 1 '新增行
    ElseIf Range("A" & i) <> "" Then
       Range("A" & i & ":E" & i).Copy .Range("A" & j)
    Else
       Range("B" & i & ":E" & i).Copy .Cells(j, 256).End(xlToLeft).Offset(, 1) '否则将第i行的数据复制到表2第j行后面不新增行
       If WorksheetFunction.CountA(.Range("A" & j & ":E" & j)) = 5 Then j = j + 1
    End If
Next i
.Columns.AutoFit
End With
End Sub

追问

好厉害啊,我能不能问问这个东西是怎么做的.
我会用C#在VS里做网站,但是vb我看不太懂
这个插件是Excel自带的还是怎么弄的
原谅我的无知,我是新手,不管怎样,先谢谢你,这个确实解决了.

追答

就是EXCEL自带的宏代码。
VB语言编写的小程序。

追问

发现新问题了,那些没有lname或者fname的也被删掉了.
因为我总共有641条数据
现在看到的只要555条
---------------------------
我加了一条ElseIf他的数据单元格等于4也显示,就拿出641条完整数据了
当然你应该有比较好的办法,我不会写vb所以用了最笨的方法
话说这个宏代码是只能用v写么? 还是也可以用C#写?

追答

因为你有多行数据在B列不存在。所以就忽略了。

可以将条件改一下。再次运行就641条了。

Sub aa()
Dim i&, j&
j = 1
With Sheets(2)
For i = 1 To [a65536].End(3).Row
    If WorksheetFunction.CountA(Range("A" & i & ":E" & i)) > 3 Then '如果该行有5个数据，则直接复制到sheet2的第j行
       Range("A" & i & ":E" & i).Copy .Range("A" & j)
       j = j + 1 '新增行
    ElseIf Range("A" & i) <> "" Then
       Range("A" & i & ":E" & i).Copy .Range("A" & j)
    Else
       Range("B" & i & ":E" & i).Copy .Cells(j, 256).End(xlToLeft).Offset(, 1) '否则将第i行的数据复制到表2第j行后面不新增行
       If WorksheetFunction.CountA(.Range("A" & j & ":E" & j)) = 5 Then j = j + 1
    End If
Next i
.Columns.AutoFit
End With
End Sub