运用vlookup中随机的工作表名怎么弄？求大佬指点

sym1633

Sheets(1).Select
Range("c2").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'2018.12'!C[-1]:C,1,FALSE),""0"")"

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row

    Selection.AutoFill Destination:=Range("c2:c" & a), Type:=xlFillDefault

Sheets(2).Select
Range("c2").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'2019.1'!C[-1]:C,1,FALSE),""0"")"

b = Cells(Cells.Rows.Count, 1).End(xlUp).Row

    Selection.AutoFill Destination:=Range("c2:c" & b), Type:=xlFillDefault
Sheets(1).Select
j = 2

就是2018.12和2019.1的工作表名，每次都是随机的，我只是截取了一段代码，之前还有个获取文件夹里的文件代码
我用sheets（1），set 对象赋值我都试了没用
完整运行代码请看附件

taller

使用变量

1. <blockquote>shtname = "2019.1"

复制代码

sym1633

taller 发表于 2019-2-16 01:10
使用变量

小弟愚钝，能写个完整的代码给我吗
自己捣鼓还是失败了

sym1633

想到个曲线救国的方法，先在表两个固定名字的表，然后把动态名字的表复制过去，处理完再覆盖回去
虽然复杂了点，但成功了额
有大佬能教我简单点的方法吗
Dim a, b, j, k

Sheet1.Columns(3).EntireColumn.Insert
Sheet2.Columns(3).EntireColumn.Insert

Sheet1.Select
Range("c2").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'2222'!C[-1]:C,1,FALSE),""0"")"

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row
   
    Selection.AutoFill Destination:=Range("c2:c" & a), Type:=xlFillDefault



Sheet2.Select
Range("c2").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'1111'!C[-1]:C,1,FALSE),""0"")"

b = Cells(Cells.Rows.Count, 1).End(xlUp).Row
   
    Selection.AutoFill Destination:=Range("c2:c" & b), Type:=xlFillDefault
Sheet1.Select


j = 2
Do While Cells(j, 3) <> ""
       If Cells(j, 3) = 0 Then
           Cells(j, 3).Font.Color = vbRed
            Cells(j, 3).EntireRow.Font.Color = vbRed
        End If
      j = j + 1
     Loop

Range("c:c").Delete

Sheet2.Select

k = 2
Do While Cells(k, 3) <> ""
       If Cells(k, 3) = 0 Then
           Cells(k, 3).Font.Color = vbRed
            Cells(k, 3).EntireRow.Font.Color = vbRed
           
        End If
      k = k + 1
     Loop

Range("c:c").Delete

Worksheets(1).Activate
ActiveCell.CurrentRegion.Select
Selection.ClearContents

Worksheets(2).Activate
ActiveCell.CurrentRegion.Select
Selection.ClearContents


Sheet1.Activate
ActiveCell.CurrentRegion.Select
Selection.Copy
    Sheets(1).Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste


Sheet2.Activate
ActiveCell.CurrentRegion.Select
Selection.Copy
    Sheets(2).Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste

Sheet1.Delete
Sheet2.Delete



End Sub

sym1633

弄了个曲线救国，先在工作簿里建两个固定名字的，然后把动态名字的表的内容复制到固定名字的表上，处理完后再导回去，成功了
有没有大佬教我简单的方法啊，还是那个问题，IFERROR(VLOOKUP(RC[-1],'2018.12'!C[-1]:C,1,FALSE),""0"")"
2018.12这个名字是不固定的，随机的

taller

sym1633 发表于 2019-2-16 13:14
小弟愚钝，能写个完整的代码给我吗
自己捣鼓还是失败了

sym1633

taller 发表于 2019-2-16 15:10

感谢，成功了