Question

EXCEL 宏代码

Sub 整理()
rowcnt = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
For i = 1 To rowcnt

Select Case Cells(i, 5)
Case "11"
Cells(i, 7) = "地点"
Case 22
Cells(i, 7) = "库"
Case 33
Cells(i, 7) = "3库"
Case 44
Cells(i, 7) = "4库"
End Select
Next i
End Sub

这是一段宏代码,就是根据E列某格的数据,在对应的G列填出结果,比如当E1为11,则G1自动填为"地点"
现在我想添加一个条件,就是当E列出现不为上面给出的数据时,在对应的G列自动填为"出错",请高手帮忙
但空白的行和内容除外,(不要填充)

Answer 1

对的，使用Proper函数非常适合楼主的要求。

宏代码没必要，公式加个等号就出来了，就是加辅助添加一列。

公式还可以拖动，一次性复制一列的单元格都成为此格式。

最后不想保留公式，可以去公式计算结果进行选择性粘贴。

Answer 2

Dim
InputStr
As
String
Dim
OutputStr
As
String
InputStr
=
Range("A1").Value
OutputStr
=
UCase(Left(InputStr,
1))
&
LCase(Right(InputStr,
Len(InputStr)
-
1))
Range("A2").Value
=
OutputStr
=====================================
取A1单元格内的内容，转换为首字母大写，其他小写的新字符串，并在A2单元格内显示。

Answer 3

用公式

=PROPER(A1)

假设A列为单词，在B1中输入公式，向下复制公式就可以了

建议非到万不得已不用宏，宏有病毒

Answer 4

改成下面的就可以了：
Sub 整理()
rowcnt = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
For i = 1 To rowcnt

Select Case Cells(i, 5)
Case "11"
Cells(i, 7) = "地点"
Case 22
Cells(i, 7) = "库"
Case 33
Cells(i, 7) = "3库"
Case 44
Cells(i, 7) = "4库"
case else
Cells(i, 7) = "出错！"
End Select
Next i
End Sub

Answer 5

把Select语句改成if语句好些
if Cells(i, 7)=11 then
Cells(i, 7) = "地点"
elseif…… then
……
elseif…… then
……
else
Cells(i, 7)="出错"
end if