<图 合伙人 翻译!> 路遇一题 小伙想把对应的组合起来 看图 结果如图 看哥 带你一键秒杀 哈哈! 代码如下: Sub 组合() Columns(3).ClearContents '清空结果列 Dim ARR ARR = Sheets('组合').UsedRange '装入数组 For I = 1 To UBound(ARR) '循环数组 If ARR(I, 1) <> '' Then '判断数组是否不为空, k = I '不为空那么定位所在行(这是经典所在) Cells(I, 3) = ARR(I, 2) '该行第三列=数组第二列的值 Else Cells(k, 3) = Cells(k, 3) & '、' & ARR(I, 2) '为空组合在一起 End If Next End Sub <online marketer 貓ゞ哥> 传播正能量 操作方便才是硬道理 【爱上Excel合伙人】能为读者做什么? 我们【爱上Excel合伙人】微信订阅号平台一直秉承简洁、优雅、高效的为读者分享工作中遇到的每一个Excel问题,不论是Excel技巧、函数、图表、VBA,甚至是有关于Excel的开发,只要你能提出来问题,我们总能给你一个满意的答案! |
|