[已解决]使运行结果保存在当前表格

chinjingo

附件内的宏运行结果是另存文档，请行家帮忙修改代码，使运行结果保存到从C1列开始的当前表格，，一格一个数字，谢谢！ e30WzPmA.rar (10.68 KB, 下载次数: 6)

2010-10-10 22:26 上传

点击文件名下载附件
运行结果保存到当前表格

[此贴子已经被作者于2010-10-13 14:26:44编辑过]

最佳答案

月排行榜 / 总排行榜

Zipall

2010-10-11 17:32

Public r As Long
Sub peng()
    aa = Timer
    Dim jj As Long, cc As Long
    arr = Range("A1:A" & [A65536].End(xlUp).Row)
    Call xi("", arr, 1, 0, Cells(1, 2), jj)
    MsgBox "找到 " & jj & " 个解! 花费" & Format(Timer - aa, "0.00" & "保存在C列") & "秒"
End Sub

Sub xi(a, arr, x As Long, y As Long, z As Long, jj As Long)
    If y = z Then
        jj = jj + 1
        r = r + 1
        Cells(r, 3) = a
        Exit Sub
    End If
    If x = UBound(arr) + 1 Then Exit Sub
    If y + UBound(arr) - x + 1 < z Then Exit Sub
    Call xi(a & " " & arr(x, 1), arr, x + 1, y + 1, z, jj)  '字附串和数字的处理速度是相差很大的
    Call xi(a, arr, x + 1, y, z, jj)
End Sub

跳转到最佳答案楼层

chinjingo

路过的朋友可否帮忙？不胜谢意！[em02]

Zipall

Public r As Long
Sub peng()
    aa = Timer
    Dim jj As Long, cc As Long
    arr = Range("A1:A" & [A65536].End(xlUp).Row)
    Call xi("", arr, 1, 0, Cells(1, 2), jj)
    MsgBox "找到 " & jj & " 个解! 花费" & Format(Timer - aa, "0.00" & "保存在C列") & "秒"
End Sub

Sub xi(a, arr, x As Long, y As Long, z As Long, jj As Long)
    If y = z Then
        jj = jj + 1
        r = r + 1
        Cells(r, 3) = a
        Exit Sub
    End If
    If x = UBound(arr) + 1 Then Exit Sub
    If y + UBound(arr) - x + 1 < z Then Exit Sub
    Call xi(a & " " & arr(x, 1), arr, x + 1, y + 1, z, jj)  '字附串和数字的处理速度是相差很大的
    Call xi(a, arr, x + 1, y, z, jj)
End Sub

jstz

学习一下

chinjingo

谢谢三楼专家的帮助！

[此贴子已经被作者于2010-10-13 14:10:19编辑过]

chinjingo

再次谢谢！

[此贴子已经被作者于2010-10-13 14:12:04编辑过]

chinjingo

非常

谢谢！

[此贴子已经被作者于2010-10-13 14:13:41编辑过]

Zipall

改一句

Cells(r, 3) = a

改为

Cells(r, 3).Resize(1, Cells(1, 2).Value) = Split(Trim(a))

chinjingo

谢谢您！Zipall

[此贴子已经被作者于2010-10-13 14:14:13编辑过]

chinjingo

再次感谢Zipall朋友自始至终的帮助！ 9QuOInxP.rar (11.04 KB, 下载次数: 5)

2010-10-13 15:00 上传

点击文件名下载附件
使运行结果保存在当前表格