时间戳

首页 > 解决方案 > VBA 将字符串与前一个字符串值连接（前一个值每隔几个单元格就改变一次）

arrays - VBA 将字符串与前一个字符串值连接（前一个值每隔几个单元格就改变一次）

问题描述

我正在构建金融系统的历史数据。

我需要一个宏来读取单元格是否不包含大写，然后将此单元格的文本与前一个大写值连接起来。

|    FIRST STEP    |
|------------------|
|     |    Name    |
| --- | ---------- |
|  1  |DISPONIBLE: | 
|  2  |Caja        |
|  3  |Bancos      |
|  4  |INVERSIONES:|
|  5  |Temporales  |
|  6  |Largoplazo  |
|  7  |CARTERA:    |
|  8  |Crédito     |

|     |    LAST STEP         |
|----------------------------|
|     |    Name              |
| --- | -------------------- |
|  1  |DISPONIBLE:           | 
|  2  |disponibleCaja        |
|  3  |disponibleBancos      |
|  4  |INVERSIONES:          |
|  5  |inversionesTemporales |
|  6  |inversionesLargoplazo |
|  7  |CARTERA:              |
|  8  |carteraCrédito        |

标签： arraysvbastringuppercase

解决方案

这应该这样做：

Sub t()
Dim rng As Range, cel As Range
Dim capitalWord As String
Set rng = Range("A1:A8") 'Adjust as needed
For Each cel In rng
    If IsUppercase(cel.Value) Then
        capitalWord = Replace(cel.Value, ":", "")
    Else
        cel.Value = LCase(capitalWord) & WorksheetFunction.Proper(cel.Value)
    End If
Next cel
End Sub
Public Function IsUppercase(AString As String) As Boolean
  IsUppercase = (UCase(AString) = AString)
End Function

基本上它会检查单元格是否为大写，如果是，则将其设置为capitalWord. 否则，将该单词的小写字母添加到单元格值中。

推荐阅读