代码修改代码修改

1吧吧 · 发表于 2024-8-14 08:17

代码修改

sdytsxd991122 · 发表于 2024-8-14 08:20

liulang0808 · 发表于 2024-8-14 08:24

sheets("sheet8") sheet8用法，楼主对应看下的

ykcbf1100 · 发表于 2024-8-14 08:47

楼主说的“Sheet8“其实是codename，工作表名应该是”Sheet6"。

1吧吧 · 发表于 2024-8-14 08:49

本帖最后由 1吧吧于 2024-8-14 09:26 编辑

1吧吧 · 发表于 2024-8-14 08:56

本帖最后由 1吧吧于 2024-8-14 09:10 编辑

改成 sheets("sheet8") 语法错误

ykcbf1100 · 发表于 2024-8-14 09:09

1吧吧发表于 2024-8-14 08:56
容易神经错乱

你用的是Codename工作表名。

ykcbf1100 · 发表于 2024-8-14 09:11

工作表名的三种表示方法，你了解一下。

1吧吧 · 发表于 2024-8-14 09:28

本帖最后由 1吧吧于 2024-8-14 13:28 编辑

感谢老师们指导

tel3033 · 发表于 2024-8-14 09:30

Sub test1()
Dim arr(), brr(), i%, j%, endRow%
arr = Sheet1.Range("B1:C" & Sheet1.[C1].End(xlDown).Row)
For i = 1 To UBound(arr)
If arr(i, 2) >= 60 Then
endRow = endRow + 1
ReDim Preserve brr(1 To 2, 1 To endRow)
For j = 1 To 2
brr(j, endRow) = arr(i, j)
Next
End If
Next
Sheets("Sheet8").[B1].Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 代码修改代码修改