excel中同一个sheet下有两列相同的表头,如何合为一列

Posted 2023-03-27

有方法将E1到H38得内容移到A38下面吗？就是把这两列数据除了用鼠标复制粘贴的方法合并成一列？

第一种方法：在A39中输入=if(e2="","",e2),下拉和右拉就可以，
第二种方法，选中E2到H38,剪切，然后粘贴到A39就可以！追问

恩，谢谢~想在多问一句： if(e2="","",e2), 这句话中各个符号都是啥意思呢？

追答

加分就可以你，呵呵！

参考技术A a39=e2
右拉下拉
那就这样咯 参考技术B 鼠标选中E1到H1 这时同时按住ctr+shift再按一下方向键下键，然后复制就行了 参考技术C 选中A39输入等号再输入E1，点击确定。再选定A39鼠标指向A39右下角鼠标指针变成黑十字下拉。再横拉即可。

Excel根据标题比较两列以查找同一行中的匹配或差异

Sheet1上有45列 每次列不在同一个地方时，在Sheet1中有两个重要的列是Work Country和Base Country，我在这里检查两列中的值是相同还是不同：如果它们相同，则输出为列状态应为Local，否则为Expat。 但是当我尝试计算我的公式时，结果是#Name？ 你能帮我解决这个问题吗？我附上了工作表的屏幕截图。 我的Excel文件也包含VBA模块，所以我可以使用公式或VBA代码。

这是我用过的公式：

=IF(Work Geography,A2)=IFS(Work Country,B2)

答案

There could be multiple reasons for this error:

• 在MS Office Professional Plus 2013中未定义IFS功能，您使用的是在您的Excel版本中未启用的功能。
• 您的公式引用了一个未在Excel中定义的名称，您显然使用命名范围（Work Geography和Work Country），但您可能忘记定义它们。
• 有一个拼写错误，它可能在Work Geography或Work Country或两者，因为名称不能容纳空格字符。
• 逻辑是有缺陷的，使用IF函数对非布尔值的值可能导致意外的结果。

一级方程式将使用：

=IF(A2=B2, "Local", "Expat")

感谢@Zac的澄清。 这就是我想出的：

Option Explicit
Sub CheckCountries()
    Dim lRow As Long
    Dim MySheet As Worksheet
    Dim rngGeo As Range, rngCountry As Range, rngStatus As Range
    Dim rngData As Range

    '    Define Sheet1
    Set MySheet = ThisWorkbook.Worksheets("Sheet1")

    '    I assumed headers are constantly on the first row
    '    Find cells with needed headers
    Set rngGeo = MySheet.Rows(1).Find("Work Geography", , xlValues, xlWhole, xlByColumns)
    Set rngCountry = MySheet.Rows(1).Find("Work Country", , xlValues, xlWhole, xlByColumns)
    Set rngStatus = MySheet.Rows(1).Find("Status", , xlValues, xlWhole, xlByColumns)

    '    Your big table, excluding headers
    With MySheet.Range("A1").CurrentRegion
        Set rngData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
    End With

    '    Define needed columns
    Set rngGeo = Intersect(rngData, rngGeo.EntireColumn)
    Set rngCountry = Intersect(rngData, rngCountry.EntireColumn)
    Set rngStatus = Intersect(rngData, rngStatus.EntireColumn)

    '    Calculate
    rngStatus.Value _
        = Evaluate("=IF(" & rngGeo.Address & "=" & rngCountry.Address & ", " & _
                        """Local"", " & _
                        """Expat"")")
End Sub