简单的复制 插入 粘贴问题 ，希望能用vba解决

zopey

1e3e 发表于 2018-3-28 22:23
请您费心再看看啊

vba 不是这样玩的，看看下面你的代码 ，很另类，该手工添加 合并的的还是 别用vba了吧。
总之 无能为力
================

Sheets("吉首").Range("a" & m & ":a" & 2000).Cells.Replace what:="（二）农田水利配套", Replacement:="（二）农田水利配套b计划", LookAt:=xlWhole

Sheets("吉首").Range("x1:x2000").Cells.Replace what:="（二）农田水利配套", Replacement:="3", LookAt:=xlWhole

Cells(x, 1).Interior.ColorIndex = 36 '单元格值为上述值时，该单元格填充黄色

Sub Macro5() '处理表格全部无合并单元格的情形
Sheets("吉首").Select
For x = 7 To 2000  '建立循环

1e3e

zopey 发表于 2018-3-29 08:26
vba 不是这样玩的，看看下面你的代码 ，很另类，该手工添加 合并的的还是 别用vba了吧。
总之 无能为力
...

按您要求改了重新上传附件，请您再看看

zopey

下面一段要根据表格修改

With Worksheets("样表一")
For i = 2 To 99
    If .Cells(i, 24).Value > 0 Then dica(.Cells(i, 24).Value) = i
Next

"样表一"你都加到100多行了，超出2 到 99 的预设范围，也就是没取到 56 、57、58的行号
请增加行数（按表格），比如    for i=2 to 188

1e3e

zopey 发表于 2018-3-29 11:16
下面一段要根据表格修改

With Worksheets("样表一")

请您看看，这附件里 运行正确.xls  和运行错误.xls在我看来运行代码都是一样的，为什么结果不一样呢？

zopey

1、当前激活工作表是 “空表”，下面代码自然没问题

Set dicb = CreateObject("Scripting.Dictionary")
For i = 2 To 999
    If Cells(i, 24).Value > 0 Then dicb(Cells(i, 24).Value) = i
Next

2、当前激活工作表不是 “空表”， 下面代码才不会错

Set dicb = CreateObject("Scripting.Dictionary")
With Worksheets("空表")
For i = 2 To 999
    If .Cells(i, 24).Value > 0 Then dicb(.Cells(i, 24).Value) = i
Next
End With

1e3e

zopey 发表于 2018-4-2 16:29
1、当前激活工作表是 “空表”，下面代码自然没问题

Set dicb = CreateObject("Scripting.Dictionary")
...

最近没办法用excel了，只能用libreoffice，我使用libreoffice导入后运行vba脚本显示如图所示错误，还烦请大大再帮忙看下，代码在excel 2007运行是正常的

1e3e

zopey 发表于 2018-3-21 11:19
Private Sub CommandButton1_Click()
Set dica = CreateObject("Scripting.Dictionary")
For i = 2 To 99 ...

这段代码同样在libreoffice中运行时出错

1e3e

在excel2007中运行是正常的，LibreOffice的最新版本可以运行一些Excel Visual Basic脚本，但兼容性确实存在问题，怎么改呢？头痛