百思不得其解，为什么竖列1可运行，竖列2崩了，range再换一个单元格也不会崩

幻影之谷

Sub 竖列1()
Dim i&, n&
Dim sh As Worksheet
Application.DisplayAlerts = False
n = ThisWorkbook.Sheets.Count
For i = 1 To n
Set sh = Sheets(i)
If sh.Name <> "Sheet1" Then
sh.Range("i1:i1").Value = Range(Cells(i + 1, 7), Cells(i + 1, 50)).Value
End If
Next
Application.DisplayAlerts = True
End Sub

Sub 竖列2()
Dim i&, n&
Dim sh As Worksheet
Application.DisplayAlerts = False
n = ThisWorkbook.Sheets.Count
For i = 1 To n
Set sh = Sheets(i)
If sh.Name <> "Sheet1" Then
sh.Range("i2:i2").Value = Range(Cells(i + 1, 7), Cells(i + 1, 50)).Value
End If
Next
Application.DisplayAlerts = True
End Sub

liulang0808

建议楼主检查单元格格式看看
不然上传附件吧

幻影之谷

liulang0808 发表于 2018-8-10 14:30
建议楼主检查单元格格式看看
不然上传附件吧

亲，解决了，不是格式问题，那个单元格正好和某个迭代量极大的一个公式连着，其他单元格是断开状态，所以，运行公式即卡死，断开就好了，话说这个帖子怎么删除，觉得挺不好意思的，自己单元表的问题不是公式的问题

约定的童话

F8看下在哪里卡主的

幻影之谷

解决问题了，虽然现在还没想明白，好像是和其他公式冲突，然后就崩溃了，i2不行，只因为和它相关的单元格多了一个数

DevilW

sh.Range("i1:i1").Value = Range(Cells(i + 1, 7), Cells(i + 1, 50)).Value
代码写成这样的也不多见了，我们简写下，假设 i = 1 ,简化代码如下：
Range("i1") = Range("g2:ax2")
一片区域的值什么赋值到一个单元格呢？

幻影之谷

DevilW 发表于 2018-8-10 15:33
sh.Range("i1:i1").Value = Range(Cells(i + 1, 7), Cells(i + 1, 50)).Value
代码写成这样的也不多见了， ...

额，个人需要吧，运行出来就是第7列的值按顺序复制到后面单元表的i1单元格