![](/img/trans.png)
[英]How to copy the value in a range of cells to another cell if only one cell in the range has a value?
[英]Copy the value in a range of cells to another cell if only one cell in the range has a value
我有一系列單元格 M4:M18。 在該單元格區域中是引用另一個表格的公式,在該單元格區域中將只有一個日期。 我試圖讓那個日期填充到單元格 H12 中。 這是我在 H12 中的公式:
=IF(COUNTA(M4:M18)=1,INDEX(M4:M18,MATCH("*",M4:M18,0)),"")
我也試過:
=IF(COUNTIF(M4:M18,"?")=1,INDEX(M4:M18,MATCH("?",M4:M18,0)),"")
此公式返回 H12 中的黑色單元格。 我閱讀了關於同一問題的先前帖子,但我似乎無法使其正常工作。 此范圍內的第一個單元格可能為空。
任何幫助將不勝感激。
謝謝
M4:M18 ='Step 2 Triage_Tbl';$Q3 並被格式化為 m/d/yy;;""
在 VBE (ALT+F11) 中將模塊插入工作表並將代碼復制到其中。
在單元格H12
中的 Excel 中輸入=OneDate(M4:M18)
。 如果尚未格式化,您可能需要將H12
格式化為日期。
Option Explicit
Function OneDate(CheckRange As Range) As Date
Dim rng As Range
For Each rng In CheckRange
If IsDate(rng.Value) Then OneDate = rng.Value: Exit For
Next
End Function
您可能需要調整宏設置才能使其正常工作:
File > Options > Trust Center > Trust Center Settings > Macro Settings
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.