|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub AwTest()
Dim i&, j%, tStr$
Application.ScreenUpdating = False
For i = 4 To 37
For j = 3 To 15
If Cells(i - 1, j) <> "" Then tStr = Cells(i - 1, j).Value
If Cells(i, j) = "" Then
ActiveWorkbook.Names.Add Name:=tStr & Cells(i, 2).Value, RefersToR1C1:="=R" & i & "C" & j
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Sub 删除定义名称()
Dim dymc As Name
For Each dymc In ActiveWorkbook.Names
dymc.Delete
Next
End Sub |
评分
-
1
查看全部评分
-
|