[英]Cannot identify source of "Type Mismatch" Error
The following macro gives a type mismatch error when run, and I cannot see where there is one.下面的宏在运行时给出了一个类型不匹配错误,我看不到哪里有。 I would appreciate any advice on this issue:
我将不胜感激关于这个问题的任何建议:
Sub Add_W()
Dim cel As Range
Dim selectedRange As Range
Dim WCount As Integer
Set selectedRange = ("C4:C20")
Set WCount = 0
For Each cel In selectedRange.Cells
Wname = cel.Text
With ThisWorkbook
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = Wname + " Table"
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = Wname + " Plots"
End With
Sheets(Wname + " Table").Select
Sheets("Report").Select
If IsEmpty(Range("B5")) Then
Rows(5).Insert shift:=xlShiftDown
End If
Range("B5") = Wname
WCount = WCount + 1
Sheets("Input").Select
Range("U" & WCount + 1) = Wname
Sheets(Wname + " Plots").Select
Next cel
End Sub
使用Set selectedRange = ActiveSheet.Range("C4:C20")
。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.