Question

我遇到了以下问题：

我通过每个项目经过一定范围，然后每次在该范围内有新名称时尝试创建一个新工作表。（该范围有多个具有相同名称的行）

我使用以下代码获取范围：

Set r = Range("a6", Range("a6").End(xlDown))

For Each Item In r
    If Item.text[i]==item.text[i-1] Then create worksheet 
Next Item

我无法弄清楚如何为每个

编程

有人能提出好的建议吗？

Answer 1

此？

Set r = Range("a6", Range("a6").End(xlDown))

For Each Item In r
    If Item.text[i]==item.text[i-1] Then 'this line has errors, but I'll let you fix it
        Set NewSheet = ThisWorkbook.Worksheets.Add
    End If
Next Item

Answer 2

首先我认为Item是限制名称。

vb ==中的第二个不是其他语言使用的。

第三个offset(row,Column)将向上/向下/向左/向右移动

Dim r as range, rng as range
Set r = Range("a6", Range("a6").End(xlDown))

For Each rng In r
    If rng <> item.offset(-1) Then 
        dim ws as worksheet 
        set ws =worksheets.add
        ws.name = rng
    end If
Next rng

根据列表创建工作表

3 个答案: