修改代码

ddz79101

老师！有表需要填充，中间有参考众多老师而写有代码，但运行未成功，并发现代码中若数字字符长的话，数字尾部会自动添加“#”号。请老师看看，并加以修正。谢谢！

ddz79101

为什么会有#号，想不通

quqiyuan

有#代表是double，说明该变量或常量是Double类型（双精度浮点型,就是很精确的小数类型了）
long类型范围是：2147483647 ~ -2147483648，所以2222222222（应该有，你代码写的是222222222所以没有，刚才没看出来），3333333333，就有，我是这么理解的，输入多次也是这个情况，你可以把这个数放在单元格，再读取就不看到了，或者看到也不影响

ddz79101

quqiyuan 发表于 2024-10-18 07:59
有#代表是double，说明该变量或常量是Double类型（双精度浮点型,就是很精确的小数类型了）
long类型范围是 ...

老师！这理论问题对我有点深了，可以帮忙修改吗

quqiyuan

改了下，结果也可以，就是把那些数值加引号，再加--，好像多余了，你看着办
复制了个表格作为样板

quqiyuan

代码如下。。。
Sub 填充()
    Set d = CreateObject("scripting.dictionary")
    arr = [a4].CurrentRegion
    For i = 2 To UBound(arr)
        If arr(i, 4) = "" Then
           If IsNumeric(Right(arr(i, 3), 1)) Then
              If arr(i, 4) = arr(i + 1, 4) Then
                 arr(i, 4) = 1111111111: arr(i + 1, 4) = --"7777777777"
                 If InStr(arr(i, 3), "费") Then arr(i, 4) = --"2222222222": arr(i + 1, 4) = --"7777777777"
                 If InStr(arr(i, 3), "租赁") Then arr(i, 4) = --"3333333333": arr(i + 1, 4) = --"7777777777"
              End If
           End If
        End If
    Next
    [a4].Resize(UBound(arr), UBound(arr, 2)) = arr
    Set d = Nothing
End Sub

ddz79101

quqiyuan 发表于 2024-10-18 09:12
改了下，结果也可以，就是把那些数值加引号，再加--，好像多余了，你看着办
复制了个表格作为样板

谢谢老师！运行成功！不管黑猫白猫，逮住老鼠就是好猫。

ddz79101

有老师帮忙看看嘛？

ddz79101

ddz79101 发表于 2024-10-18 10:00
有老师帮忙看看嘛？

有请老师帮忙看看

ddz79101

ddz79101 发表于 2024-10-18 10:33
有请老师帮忙看看

有情老师帮忙看看