[已解决]这句代码错在哪？

adadada

arr = Range("A1:L" & x).Value
for i = 1 to Ubound(arr)
m = m & arr(i, 7) & "-" & arr(i, 8) & "-" & arr(i, 9) & ")" & arr(i, 11).Value & ","
这句代码错在哪？

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-9-26 20:33

adadada 发表于 2013-9-26 19:54
为什么数组后面不能加value?

数组中的元素本来就不带任何格式，只有值，所以就不能加.value

跳转到最佳答案楼层

我心飞翔410

看上去 没错啊

yyyydddd8888

m = m & arr(i, 7) & "-" & arr(i, 8) & "-" & arr(i, 9) & ")" & arr(i, 11).Value & ","

去掉.value试
写成：m = m & arr(i, 7) & "-" & arr(i, 8) & "-" & arr(i, 9) & ")" & arr(i, 11) & ","

adadada

yyyydddd8888 发表于 2013-9-26 19:51
m = m & arr(i, 7) & "-" & arr(i, 8) & "-" & arr(i, 9) & ")" & arr(i, 11).Value & ","

去掉.value试 ...

为什么数组后面不能加value?

上清宫主

arr(i, 11).Value 不能要.value

adadada

上清宫主 发表于 2013-9-26 19:56
arr(i, 11).Value 不能要.value

为什么不能加？

上清宫主

数组元素非单元格

adadada

上清宫主 发表于 2013-9-26 19:58
数组元素非单元格

Cells(r, "P") =  Cells(r, "G") & "-" & Cells(r, "H") & "-" & Cells(r, "I")  & Cells(r, "M")
metest = metest & Cells(r, "P").Value & ","
上面这两句代码写成一句怎么写？

上清宫主

你这两句一个是对单元格赋值，一个是对变量赋值，怎么合成一句？一句完成两个赋值？

yyyydddd8888

你看看这样行不行！

metest = metest & Cells(r, "G").value & "-" & Cells(r, "H").value & "-" & Cells(r, "I").value  & Cells(r, "M") .value & ","

1. metest = metest & Cells(r, "G").value & "-" & Cells(r, "H").value & "-" & Cells(r, "I").value  & Cells(r, "M") .value & ","

复制代码