愿还日早
不对菜菜会员委牛吹
计时器都不精确？seiromeM
?早日还愿 ?早日还愿 要截图你就截全，怕人学走了啊
子把扛会员委牛吹
?闲的时候代写vba 突然想起上次有个坛友说数组存不了1000万行数据，你试一下
锟褚
With Workbooks.Open(xPath, False, True)
brr = .ActiveSheet.UsedRange
.Close False
End With
seiromeM
?早日还愿 ?早日还愿 你这是读取TXT 你写个工作簿干嘛
abv写代候时的闲
我这tm往access数据库里读数据
怎么读都会有一堆数据类型转换错误
到底是为啥，看上去都是1000多的数字
seiromeM
我今天读取TXT的时候一开始全都是乱码
换个格式就好了
abv写代候时的闲
换个格式我到时候sql的时候没法汇总啊
菜菜会员委牛吹
我有一个csv的 用ADO根本没办法读取
转码呢 文件太大打不开
abv写代候时的闲
唉
这种时候就是麻烦
我这有几个100多将近200m的csv
都是这种问题
niatruC
:)们，我有500多个这样的表格在一个word里面，现在要一个表格单独生成一个word或者PDF，有办法让单个的word或者PDF的文件名直接用表格里的姓名吗
abv写代候时的闲
转了码
邮编导入不进去
不转码
关键数字导入不进去
算了
我选邮编
abv写代候时的闲
设了，长整形很是迷惑到底为啥菜菜会员委牛吹
csv不好玩 色音の成完未
哪里错呢 救救孩子 连初心都忘了菜菜会员委牛吹
打开读到数组里面，再连数据库 ...
菜菜会员委牛吹
有些编码不对 用aod读出来是乱码 压根玩不了
abv写代候时的闲
成了~我tm是天才我手动导入的ado处理不了那么大的数据我把右边设成长文本就进去了之前一直在想计算问题刚反应过来邮编不用计算啊~
abv写代候时的闲
字符串拼错了
这个低级错误不要犯好吧
菜菜会员委牛吹
哪怕需要计算 .. 导完了可以转类型seiromeM
三倍快乐abv写代候时的闲
需要计算的列必须正常导进去?Memories 这两天严打你小心点 abv写代候时的闲
我加的手游群都因为开车封了好几个了
锟褚
If arr(r, 2) = "" Then
D(arr(r, 1)) = r
End If 这名什么意思。
菜菜会员委牛吹
这又特么是什么鬼畜缩进 abv写代候时的闲
有内鬼就会被封 菜菜会员委牛吹
字面意思啊 ，判断 是不是等于空格 是的话就执行D(arr(r, 1)) = r
菜菜会员委牛吹
记录为空值的下标 .t ioD
:):)。
有:)在嘛 .t ioD
这样的数据格式，去重
色音の成完未
直接copy 怎样只粘帖数值？ 要录宏么？
侠大猫
只保留一个的话, 遍历去重
或者先弄到一列
?Do it.
abv写代候时的闲
?未完成の音色 ?未完成の音色 录宏，有个pastespecial方法
.t ioD
.UsedRange.RemoveDuplicates Columns:=Array(), Header:=xlYes
我试了这个。。但是
锟褚
For r = 1 To mr
If arr(r, 2) = "" Then
D(arr(r, 1)) = r
End If
Nex
这个什么意思。
.t ioD
.UsedRange.RemoveDuplicates Columns
这个函数当中的
Array(1, 2, 3, 4, 5, 6, _
7, 8, 9, 10, 11, 12, 13, 14, 15, 16)
不确定怎么办
.t ioD
好像还有个解决办法知道了abv写代候时的闲
?Do it. 你这个头像处处显示出蜜汁自信，让我们并不想解答任何问题 abv写代候时的闲
?吹牛委员会菜菜 ?吹牛委员会菜菜 别装了，你这两天也天天在水，天天写代码我又不是没看见 .t ioD
即使什么都不会，也要自信满满菜菜会员委牛吹
简单的会一点色音の成完未
这句判断要怎样改才通用 又不把 其他工作簿当成 美丽的 工作簿？色音の成完未
（美丽）& 美丽- -美丽 &（美丽）
别人交表控制不了 他把名字写到各个地方。。
菜菜会员委牛吹
那就严格要求下去 名字要放在前面 这么简单的要求不难做吧
名字-*
abv写代候时的闲
字符串识别分三步来吧，第一步便利文件夹提取到单元格，第二步手工处理字符串，第三步改名
不要想着两句代码能涵盖所有情况
肯定会出错，不如手工筛一遍解决问题快
你可以写个大致的识别，但是最后一定要有人工检查
经验之谈
就算你写的再好，识别率还是到不了90
要不严格要求，要不就手洗数据
菜菜会员委牛吹
对 严格要求，写在前面 ，不写不算当作没交
色音の成完未
自己就还好 帮别人写的 唯有考虑多几步
菜菜会员委牛吹
帮谁啊 ，小姑娘么 seiromeM
那个怀孕的同事他说过的 锟褚
For r = 2 To UBound(brr)
If D.exists(brr(r, 1)) Then
i = D(brr(r, 1))
arr(i, 2) = brr(r, 2) & ";" & brr(r, 3)
If Right(arr(i, 2), 1) = ";" Then arr(i, 2) = Left(arr(i, 2), Len(arr(i, 2)) - 1)
arr(i, 3) = brr(r, 5)
arr(i, 4) = brr(r, 4)
End If
这段什么意思。
......er aelpoe pemoS
你应该去问给你写代码的人
菜菜会员委牛吹
简单说明如果能懂的话 ，不用问就看懂了
计时器都不精确？
哪里错呢 救救孩子 连初心都忘了
哪怕需要计算 .. 导完了可以转类型
即使什么都不会，也要自信满满
这句判断要怎样改才通用 又不把 其他工作簿当成 美丽的 工作簿？
