从工作表“目录”中A列开始逐行复制内容到工作表模板中指定位置并新建工作表

jxwfz740724 · 发表于 2019-9-22 16:19

本帖最后由 jxwfz740724 于 2019-9-22 16:37 编辑

liulang0808 发表于 2019-9-22 14:20
ifB7》100
这个符号就不对，上传楼主的修改附件看看吧

大佬，附件已上传

jxwfz740724 · 发表于 2019-9-23 07:51

本帖最后由 jxwfz740724 于 2019-9-23 08:12 编辑

liulang0808 发表于 2019-9-22 14:20
ifB7》100
这个符号就不对，上传楼主的修改附件看看吧

大佬，统计总行数我用“=COUNTA(目录!A:A)“可以实现，但是，超出这个值，弹出错怎么实现？我在按钮1下加了“ If [c7] > [b7] Then MsgBox "超过目标行数"，但是不行。大佬能解惑吗？

liulang0808 · 发表于 2019-9-23 08:13

Sub 按钮1_Click()
If Sheets.Count = 3 Then
      [b7] = 0
End If
j = [b7] + 1
If j >= 100 Then
      MsgBox "已经超过有效行数"
Else
      Sheets("模板").[f13] = Sheets("目录").Cells(j, 1)
      Sheets("模板").[k13] = Sheets("目录").Cells(j, 2)
      Sheets("模板").[e13] = Sheets("目录").Cells(j, 3)
      Sheets("模板").[q13] = Sheets("目录").Cells(j, 5)
      [b7] = j
End If
End Sub
之前上传过代码，可能是论坛有问题，不见了

jxwfz740724 · 发表于 2019-9-23 08:21

liulang0808 发表于 2019-9-23 08:13
Sub 按钮1_Click()
If Sheets.Count = 3 Then
= 0

谢谢大佬，我再试试。

jxwfz740724 · 发表于 2019-9-23 08:50

本帖最后由 jxwfz740724 于 2019-9-23 09:01 编辑

liulang0808 发表于 2019-9-23 08:13
Sub 按钮1_Click()
If Sheets.Count = 3 Then
= 0

大佬，我试着改了一下。我在C7处用了“=COUNTA(目录!A:A)”，然后将你的“ If j >= 100 Then”改为“ If j > [c7] Then”,结果显示“编译错误，块 if 没有end if ”。这个错在哪里？求指正。已将查到了，确实我自己粗心大意，弄丢了了一个ENDIF。呵呵。大佬代码是正确的。

jxwfz740724 · 发表于 2019-9-23 19:28

liulang0808 发表于 2019-9-23 08:13
Sub 按钮1_Click()
If Sheets.Count = 3 Then
= 0

再请教一下，代码
      Sheets("模板").[f13] = Sheets("目录").Cells(j, 1)
      Sheets("模板").[k13] = Sheets("目录").Cells(j, 2)
      Sheets("模板").[e13] = Sheets("目录").Cells(j, 3)
      Sheets("模板").[q13] = Sheets("目录").Cells(j, 5)能够合并成一句吗？

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

[求助] 从工作表“目录”中A列开始逐行复制内容到工作表模板中指定位置并新建工作表

评分

点评