[已解决]请问关于循环赋值中合并单元格问题。

ccc919

     Worksheets("sheet1").Range(a).Value = Cells(i, 7).Value
如上这是循环中最后输出地方，问题在这 Cells(i, 7).Value 这样子读取的所有I行中的数据虽然能输出到指定单元格中，但是所有提取到的数据会被覆盖。如何让提取到的数据在一个单元格中且用符号，来分割开，例如 Cells(i, 7).Value 提取后不同单元格中的数据，有 我 我的 我的1  3个单元格中的数据，则提取出输出 Worksheets("sheet1").Range(a).Value =  该单元中数据为， 我，我的，我的1

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-5 10:55

ccc919 发表于 2015-5-5 10:15
Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row

Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row
For i = 1 To row1
If Cells(i, 1) Like "2015-4-*" Then
    If Cells(i, 6) <> "0" And Cells(i, 6) <> "不合格数" Then
    x=x & cells(i,7).value
     Worksheets("流程单统计").Range(a).Value = x
    End If
End If
Next
End Sub
这样试试

跳转到最佳答案楼层

徐淑颖

变量=变量& 单元格
最后变量赋值

不信这样还重名

VBA的题能否直接上附件，然后告诉我们想要达到的效果就好，看了好久，也没看能看懂楼主的需求。话说Range(a).Value这个可以有么？

ccc919

不信这样还重名 发表于 2015-5-5 08:58
VBA的题能否直接上附件，然后告诉我们想要达到的效果就好，看了好久，也没看能看懂楼主的需求。话说Range(a ...

Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row
For i = 1 To row1
If Cells(i, 1) Like "2015-4-*" Then
    If Cells(i, 6) <> "0" And Cells(i, 6) <> "不合格数" Then
     Worksheets("流程单统计").Range(a).Value = Cells(i, 7).Value
    End If
End If
Next
End Sub
问题关键是这个。 Cells(i, 7).Value如何在输出时候。不是覆盖单元格内容而是合并单元格内容

qh8600

ccc919 发表于 2015-5-5 10:15
Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row

Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row
For i = 1 To row1
If Cells(i, 1) Like "2015-4-*" Then
    If Cells(i, 6) <> "0" And Cells(i, 6) <> "不合格数" Then
    x=x & cells(i,7).value
     Worksheets("流程单统计").Range(a).Value = x
    End If
End If
Next
End Sub
这样试试

ccc919

qh8600 发表于 2015-5-5 10:55
Sub test()
a = "G" & Range("A65536").End(xlUp).Row + 1
row1 = Range("A65536").End(xlUp).Row

可以了多谢。。那请问假设变量为数值我需要求和这计算公式怎么写？

qh8600

ccc919 发表于 2015-5-5 11:38
可以了多谢。。那请问假设变量为数值我需要求和这计算公式怎么写？

x=x+cells(i,7)

ccc919

qh8600 发表于 2015-5-5 11:41
x=x+cells(i,7)

非常感谢！