[已解决]怎么赋值？

sdfsdfs · 发表于 2013-9-18 22:39

本帖最后由 sdfsdfs 于 2013-9-24 21:14 编辑

If .Sheets(1).Range("H" & i) = "备注" Then .Sheets(1).Rows(i).CopyThisWorkbook.Sheets(1).Range("A65536").End(3)(W)

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-9-19 09:30

可以直接用=吗？

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-9-18 22:50

复制，选择性粘贴，值。

你这里只怕犯错了，你复制某一整行到某一个单元格。

sdfsdfs · 发表于 2013-9-18 22:54

hwc2ycy 发表于 2013-9-18 22:50
复制，选择性粘贴，值。

你这里只怕犯错了，你复制某一整行到某一个单元格。

试过了，没有什么问题？

hwc2ycy · 发表于 2013-9-18 23:02

sdfsdfs 发表于 2013-9-18 22:54
试过了，没有什么问题？

没注意到一个细节，是复制到了A列的。

yyyydddd8888 · 发表于 2013-9-19 09:30

这个最佳答案由 yyyydddd8888 给出，感谢 yyyydddd8888 的回答。

单击隐藏图章

可以直接用=吗？

yyyydddd8888 · 发表于 2013-9-19 09:39

Sub test()
Application.ScreenUpdating = False
WOK = Dir(ThisWorkbook.Path & "\*.xls")
Do While WOK <> ""
If WOK <> ThisWorkbook.Name Then
With Workbooks.Open(ThisWorkbook.Path & "" & WOK)
For i = 1 To .Sheets(1).Range("A65536").End(3).Row
If ThisWorkbook.Sheets(1).Range("A65536").End(3).Row = 1 Then
W = 10
Else
W = 2
End If
If .Sheets(1).Range("H" & i) = "备注" Then
ThisWorkbook.Sheets(1).Range("A65536").End(3)(W).EntireRow.Value = .Sheets(1).Rows(i).EntireRow.Value
End If
Next
.Close False
End With
End If
WOK = Dir
Loop
Application.ScreenUpdating = True
End Sub

复制代码

yyyydddd8888 · 发表于 2013-9-19 09:41

本帖最后由 yyyydddd8888 于 2013-9-19 09:43 编辑

把这一句：
If .Sheets(1).Range("H" & i) = "备注" Then .Sheets(1).Rows(i).CopyThisWorkbook.Sheets(1).Range("A65536").End(3)(W)

改成这样：
         If .Sheets(1).Range("H" & i) = "备注" Then
                  ThisWorkbook.Sheets(1).Range("A65536").End(3)(W).EntireRow.Value = .Sheets(1).Rows(i).EntireRow.Value
      End If

或者：

  If .Sheets(1).Range("H" & i) = "备注" Then
                  ThisWorkbook.Sheets(1).Range("A65536").End(3)(W).EntireRow= .Sheets(1).Rows(i).EntireRow.Value
      End If

sdfsdfs · 发表于 2013-9-19 20:06

本帖最后由 sdfsdfs 于 2013-9-22 10:51 编辑

yyyydddd8888 发表于 2013-9-19 09:41
把这一句：
If .Sheets(1).Range("H" & i) = "备注" Then .Sheets(1).Rows(i).CopyThisWorkbook.Sheets(1 ...

EntireRow是什么?

yyyydddd8888 · 发表于 2013-9-19 21:00

sdfsdfs 发表于 2013-9-19 20:06
EntireRow是什么，代码还能这样写？

entirerow表示单元格、或者单元格区域所在的行，
entirecolumn表示单元格、或者单元格区域所在的列。

sdfsdfs · 发表于 2013-9-19 21:22

本帖最后由 sdfsdfs 于 2013-9-24 21:15 编辑

yyyydddd8888 发表于 2013-9-19 21:00
entirerow表示单元格、或者单元格区域所在的行，
entirecolumn表示单元格、或者单元格区域所在的列。

怎么按顺序？

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