请教出现资源不足,无法计算公式,如何处理.

言飞

看图:为什么在图上出现资源不足,无法计算公式,

现在如何把很多的行(横)的文字一次性转换成列(直式)

3行横的格式如何转换成下面2列直的格式，是连接的，而且那个“T”不要请编程高手指教(看图)

刀羊

曾经用过的办法：

1. 重启excel
2. 将部分公式转换为数值
3. 优化公式
4. 选中较少部分数据做更新

言飞

谢谢刀羊先生的指教,

1. 重启excel
@---------我试过不行,
2. 将部分公式转换为数值
@------我是菜鸟不知如何转换
3. 优化公式
4. 选中较少部分数据做更新
@--------不知如何优化及更新.


能留QQ号给我吗?,
我的 QQ:1906293442
谢谢,

刀羊

2.复制－选择性粘贴－数值
3.优化公式要看你公式基础了，比如减少使用数组公式等
4.比如复制时，可以每次少复制粘贴一部分区域，减少一半如何、四分之一如何，这和你用公式有很大关系

还可以试试操作前选存盘，也可能有效，仅是可能，需要自己多摸索。

言飞

刀羊 发表于 2015-6-1 21:23
2.复制－选择性粘贴－数值
3.优化公式要看你公式基础了，比如减少使用数组公式等
4.比如复制时，可以每次 ...

谢谢你的指教,我还是搞不了.
我把文件发给你能否帮我处理一下.

言飞

提问者采纳
Sub 转换()
Dim rw%, a%, cl%, b%
rw = Application.CountA([a:a])
    For a = 1 To rw
        cl = Application.CountA(Rows(a))
            For b = 2 To cl
                If Cells(a, b) <> "T" Then
                k = k + 1
                Sheet2.Cells(k, 1) = Cells(a, 1): Sheet2.Cells(k, 2) = Cells(a, b)
                End If
            Next b
    Next a
End Sub


在sheet1中写入代码，执行后结果在sheet2中。点击图片后看执行结果。
http://zhidao.baidu.com/question/2011751818344215188.html

请高手们教我如何学会此操作

言飞

最近还是没有解决这个资源不足问题，而感到有点头痛。

言飞

谁能帮我解决这个问题,因文件量很大,或者我传给能帮助我的人,直接帮我转换一下也行

言飞

为什么没人接这活呀

13212636442

真的是。。。。。。别人都说了要你怎么操作，你直接就回一个我不会，怎么会有人来回复你