Excelでの結合セルの検索 - OKWAVE
＃１です。 http://www.officetanaka.net/excel/vba/tips/tips50.htm を見て改良しました。同じ結合セル部分で、Ｍｓｇｂｏｘがセル数だけ何度も出るのを防ぎました。 Sub Sample4() Dim buf As String Dim mc(1000) n = 1 For Each cl In Selection If cl.MergeCells = True Then With cl.MergeArea For i = 1 To n If mc(i) = .Item(1).Address(0, 0) Then GoTo p1 Next i buf = buf & .Rows.Count & "行" & vbCrLf buf = buf & .Columns.Count & "列" & vbCrLf buf = buf & .Count &
大きなエクセル表でセル結合されている場所を探す方法？ - Office系ソフト - 教えて！goo
VBAでやれば Sub test01() K = 1 Dim cl For Each cl In Worksheets("Sheet1").Range("A1:Z10000") If cl.MergeCells = True Then If cl.MergeArea(1).Address = cl.Address Then Worksheets("Sheet2").Cells(K, "A") = cl.Address K = K + 1 End If End If Next End Sub シートがSheet1の場合です。Sheet1を実際のシート名に変えること。 A1:Z10000までの範囲をチェックします。 これを増やすなら番地の範囲を増やしてください。 上記でも実行に１０秒ぐらいかかるようです。 Sheet2のA列に、結合セルの上隅のセル番地が出ます。
App StoreからiPhoneアプリ情報を取得するExcel VBAサンプル
「ExcelでiPhoneアプリ情報をまとめる」ってあんまりないシチュエーションかとは思いますが...いざやるとなるとiTunes Storeが文字列をコピペできないので凄く面倒です。そこで以前に掲載したPHP版のサンプルをExcel VBAに書き換えたので共有します。ちょっと改造すると特定アプリのアップデートチェッカーになるかもしれません。 ファイルダウンロード 2009-12-03追記 iPhoneと過ごした500日まとめ(付録:アプリ表の作り方)の記事で最新版を配布しています。 2009/09/21 Release:0.1.0-sample(010-sample.zip 89.3KB) テストした環境は以下の通りです。 Windows XP SP3(Parallels Desktop 4.0) Microsoft Excel 2007 2003以前は環境ないので確認できません。動かな
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
