[已解决][求助]请高手指教四列数值合并到一列中

东方智彩

如题,谢谢! 

rnteDeza.rar (12.99 KB, 下载次数: 4)

2009-10-30 14:53 上传

点击文件名下载附件
[求助]请高手指教四列数值合并到一列中

最佳答案

月排行榜 / 总排行榜

amulee

2009-10-30 15:13

Sub Hebing()
    Application.ScreenUpdating = False
    Sheet1.Range("F:F").Clear
    For i = 1 To Sheet1.Range("J1:M65536").Find("*", Range("J1"), , , xlByRows, xlPrevious).Row
        Sheet1.Range("F" & i) = WorksheetFunction.Sum(Range(Cells(i, 10), Cells(i, 13)))
        If Sheet1.Range("F" & i) = 0 Then Sheet1.Range("F" & i).Clear
    Next i
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

amulee

Sub Hebing()
    Application.ScreenUpdating = False
    Sheet1.Range("F:F").Clear
    For i = 1 To Sheet1.Range("J1:M65536").Find("*", Range("J1"), , , xlByRows, xlPrevious).Row
        Sheet1.Range("F" & i) = WorksheetFunction.Sum(Range(Cells(i, 10), Cells(i, 13)))
        If Sheet1.Range("F" & i) = 0 Then Sheet1.Range("F" & i).Clear
    Next i
    Application.ScreenUpdating = True
End Sub

东方智彩

谢谢amulee老师,问题解决了

zsd5237

学习[em02][em02]

雨狐

[em01]