用宏录制的按空格分列语句有错误

gagaxiaozhi

按空格拆分一个单元格数据
这个语句的问题出在哪里啊


Sub 宏1()
'
' 宏1 宏
'

'
    . DateRange := Range("A2"), Type := xlDelimited,  := xlDoubleQuote,  := TRUE, _
        := TRUE,  := FALSE,  := FALSE,  := TRUE,  := FALSE,  := Array(Array(1,1),Array( _
        2,1)),  := TRUE
End Sub

tanglf188

代码被你阉割了

tanglf188

拆分字符串用分裂函数
语法：Split(expression, [ delimiter, [ limit, [ compare ]]])

参数：
        Part                说明
    expression        必填，包含子字符串和分隔符的字符串表达式。 如果expression是零长度字符串 ("")，则Split返回空数组，即不包括任何
                                元素和数据的数组
    delimiter        可选，用于标识子字符串限制的String字符。如果省略，则假定空格符 (" ") 为分隔符。 如果delimiter是零长度字符串，则
                                返回包含完整expression字符串的只含单一元素的数组
    limit                可选，要返回的子字符串数;-1 指示返回所有子字符串。
    compare        可选，指示计算子字符串时要使用的比较类别的数值。 各个值说明如下：
        compare 参数可以包含以下值：
    常量                        值        说明
    vbUseCompareOption        -1        使用 Option Compare 语句的设置来执行比较
    vbBinaryCompare                0        执行二进制比较
    vbTextCompare                1        执行文本比较
    vbDatabaseCompare        2        仅用于 Microsoft Access。 根据数据库中的信息执行比较

gagaxiaozhi

tanglf188 发表于 2024-6-18 17:18
拆分字符串用分裂函数
语法：Split(expression, [ delimiter, [ limit, [ compare ]]])

如果想分割A列空格后的字符串到B列应该是怎么样的呢

wang-way

分列 应该是有个对象   然后你调用它的方法 你这个代码  既看不到对象 也看不到方法 只看到了方法的参数

ykcbf1100

For i = 2 To r
     cells(i,2)=split(cells(i,1))(1)
next
没有附件，猜一下

gagaxiaozhi

ykcbf1100 发表于 2024-6-20 09:13
For i = 2 To r
     cells(i,2)=split(cells(i,1))(1)
next

附件已上传，就是想拆分出来A列的数字做后一个减去前一个的差值判断

ykcbf1100

gagaxiaozhi 发表于 2024-6-20 09:26
附件已上传，就是想拆分出来A列的数字做后一个减去前一个的差值判断

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.6.20
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = 1 To r
   
4.         Cells(i, 2) = Val(Split(Cells(i, 1))(1))
   
5.     Next
   
6. End Sub
   

复制代码