Question

在一栏中，我有类似 - ＆＃34; 2012年春季＆＃34;，＆＃34; 2013年秋季＆＃34;，＆＃34;春季＆＃34; 2014＆＃34;，＆＃34; 2015年秋季＆＃34;等等。

我希望拥有的是 - 具有＆＃34; Spring xxxx＆＃34;应该比出现的值少一个值。

喜欢 - "Spring 2012" -> "Spring 2011" "Fall 2012" -> "Fall 2012" "Spring 2014" -> "Spring 2013" "Fall 2014" -> "Fall 2014"

我想我需要应用条件格式规则，但我不知道如何在这种情况下使用它。

Answer 1

点亮要转换的单元格并运行这个小宏：

Sub FixYear()
    Dim r As Range
    For Each r In Selection
        If r.Value <> "" And InStr(1, r.Value, " ") <> 0 Then
            ary = Split(r.Value, " ")
            ary(1) = ary(1) + 1
            r.Value = Join(ary, " ")
        End If
    Next r
End Sub

宏非常易于安装和使用：

ALT-F11调出VBE窗口
ALT-I ALT-M打开了一个新模块
粘贴内容并关闭VBE窗口

如果保存工作簿，宏将随之保存。如果您在2003年之后使用的是Excel版本，则必须保存该文件为.xlsm而不是.xlsx

删除宏：

按上述方式调出VBE窗口
清除代码
关闭VBE窗口

要使用Excel中的宏：

ALT-F8
选择宏
触碰RUN

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

必须启用宏才能使其正常工作！

编辑＃1 - 非VBA

使用 A1 中的数据，在 * B1 中输入：

=LEFT(A1,FIND(" ",A1))&--MID(A1,FIND(" ",A1)+1,9999)+1

根据需要复制

Answer 2

假设数据从A1开始，请在B1中添加此公式：

=IF(LEFT(A1,4)="Fall",A1,LEFT(A1,FIND(" ",A1))&--MID(A1,FIND(" ",A1)+1,9999)-1)

Answer 3

使用＆＃34;帮助列＆＃34;，假设您的数据在A1中，以更改以＆＃34; Spring＆＃34;开头的单元格：

B1:  =IFERROR(SUBSTITUTE(A1,RIGHT(A1,FIND("Spring",A1)),RIGHT(A1,1)-1),A1)

Excel显示不同于值

3 个答案: